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VOORWOORD 


Met ons boek 'Programming FORTRAN 77: A Structured Approach! 
hebben we een basis willen leggen voor een inleidende cursus in com- 
puterkunde. Daarbij zijn we er van uitgegaan dat de hoofdzaken 

-het programmeren en het probleemoplossen- niet door wiskundige 
bijzaken vertroebeld mochten worden. De voorbeelden zijn daarom 
grotendeels ontleend aan het leven van alledag, en zijn zonder bij- 
zondere wiskundige voorkennis te begrijpen. 


Naar onze vaste overtuiging dient het onderwijs in het programmeren 
van computers op hechte grondslagen te berusten. Slechte gewoonten, 
eenmaal aangewend, zijn moeilijk te veranderen. Daarom wordt veel 
aandacht besteed aan het 'kweken' van een goede programmeermenta- 
liteit. Ook kan de kennismaking met het systematisch analyseren 

van problemen vanaf het beginstadium (wat moet er gebeuren?) tot 
het stadium van het uiteindelijke algoritme (hoe moet het gebeuren?), 
zoals dat in dit boek verloopt, zeer nuttig zijn voor het bevorderen 
van het logisch denken. 


De programmeertaal waarvan wij uitgaan is FORTRAN 77. Deze 

taal wordt gepresenteerd in de vorm van zogenaamde subsets, aange- 
duid met SF/1, SF/2, SF/3 enzovoort; daarbij staat SF voor 
‘Structured FORTRAN'. We hopen dat men door het volgen van deze 
stap-voor-stap presentatie van FORTRAN 77 subsets, waarbij het 
‘programmeergereedschap' zorgvuldig is geselecteerd, de principes 
van het gestructureerd programmeren zal leren. 


Zoals een programma een middel is om met een computer een duide- 
lijk afgebakend doel te bereiken, zo is ook het gestructureerd pro- 
grammeren een middel om een bepaalde doelstelling te bereiken. 

Die doelstelling is tweeledig. In de eerste plaats gaat het erom, de 
correctheid van het resulterende programma zoveel mogelijk te 
bevorderen. Daarnaast moet het programma in een later stadium 
gemakkelijk aangepast kunnen worden aan veranderde omstandighe- 
den. Dit betekent dat het programma behalve door de auteur(s) ook 
door anderen begrepen moet kunnen worden, en daarom qua struc- 


vi 
tuur en vorm verantwoord moet zijn. 


Naarmate men zich de opeenvolgende subsets eigen maakt, worden 
nieuwe perspectieven geopend. Zelfs vanaf de eerste subset (SF/1) 
kunnen programma's worden geschreven die eenvoudige rekenkundi- 
ge bewerkingen uitvoeren en gegevens afdrukken. Na het doornemen 
van de subset SF/4 heeft men geleerd tekst te verwerken, ingewikkel- 
dere rekenkundige bewerkingen uit te voeren, en de besturingsstroom 
van een programma (de zogenaamde control flow) te structureren. 


Het gestructureerd programmeren is vooral van belang bij het wer- 
ken aan grotere programma's. Een uitgebreide behandeling van de 
technieken van modulair programmeren en top-down programma- 
ontwerp volgt dan ook op de invoering van FORTRAN subprogram- 
ma's in SF/7. 


Veel voorbeelden in dit boek zijn afkomstig van het gebied van 
(grootschalige) gegevensverwerking. Daarom wordt ook aandacht 
besteed aan algemene begrippen zoals gegevensstructuren, en zoek- 
en sorteertechnieken. Het boek eindigt met een hoofdstuk over 
technisch-wetenschappelijke toepassingen. 


We hebben voortdurend getracht de stof op overzichtelijke wijze op te 
bouwen en op een gemakkelijk te begrijpen manier te presenteren. 
Daarbij is veel aandacht besteed aan voorbeeldprogramma's, en aan 
het aandragen van voldoende oefenmateriaal. Elk hoofdstuk wordt 
besloten met een samenvatting van de belangrijkste daarin behandel- 
de begrippen. 


De verzameling FORTRAN 77 subsets waarvan wij in dit boek uit- 
gaan wordt SF/k genoemd, en is gebaseerd op een verzameling sub- 
sets van de taal PL/I. Deze verzameling -SP/k- werd ontworpen 
door R.C. Holt en D.B. Wortman van de Universiteit van Toronto. 


We zijn dank verschuldigd aan velen die met opbouwende kritiek heb- 
ben bijgedragen aan de totstandkoming van dit boek. Hun namen zijn 
op verschillende plaatsen in de tekst verwerkt. In het bijzonder dan- 
ken we Inge Weber voor de zorgvuldigheid en het geduld waarmee ze 
onze potloodkrabbels heeft omgetoverd tot een drukklaar geheel. 


Het schrijven van een boek gaat ten koste van andere activiteiten. 
Omdat de meeste tijd die we aan dit boek hebben besteed in de avond- 
-uren of in de weekends viel, besluiten we met een woord van dank 
aan onze echtgenoten Patricia en Marie. 


J.N.P. Hume 
R.C. Holt 


WOORD VOORAF EN VERANTWOORDING 
VAN DE BEWERKER/VERTALER 


Ook bij deze Nederlandse versie van het boek van J. N. P. Hume en 
R.C. Holt is een voorwoord -een woord vooraf- op zijn plaats. 
Omdat het hier niet slechts een vertaling, maar ook een hier en daar 
tamelijk ingrijpende bewerking betreft, koppelen we hier meteen een 
‘verantwoording! aan vast. 


Het ‘ingrijpende! van de bewerking heeft voor een belangrijk deel 
betrekking op het eenvoudig weglaten van enkele gedeelten van het 
origineel. Zoals de auteurs in hun voorwoord opmerken, hebben zij 
het boek bedoeld als een basis voor een inleidende cursus in compu- 
terkunde. De oorspronkelijke tekst bestrijkt dan ook een zeer ruim 
gebied. Naast het leren programmeren in FORTRAN 77 -waarop 
verreweg de meeste nadruk valt- wordt bijvoorbeeld ook aandacht 
besteed aan interne computerkundige zaken, vooral wat het assem- 
bleren en compileren betreft. Daartoe definieert men een hypothe- 
tische computer, die door middel van een FORTRAN programma 
wordt gesimuleerd, en waarvoor een eenvoudige compiler -eveneens 
in FORTRAN geschreven- wordt behandeld. Ook aan de numerieke 
wiskunde wordt enige aandacht geschonken. In overleg met beide 
uitgevers en auteurs is besloten de Nederlandse versie te beperken 
tot de hoofdzaak: het leren programmeren in FORTRAN 77. Hopelijk 
zal dit eerder als een winstpunt dan als een gemis worden ervaren, 
al was het alleen maar omdat men hierdoor beter de 'programmeer'- 
en de 'FORTRAN 77'-bomen in het grote computerkundebos zal kun- 
nen onderscheiden. 


De bewerking heeft ook betrekking op de presentatie van de leerstof. 
Zonder het sterk didactische karakter van het origineel geweld aan 
te doen, is getracht de toegankelijkheid van het boek te verhogen 
door de stof op sommige plaatsen anders te ordenen en te structure- 
ren. Ook worden de relaties tussen SF/k en de ‘moedertaal! iets 
explicieter naar voren gebracht. Verder zijn de drie oorspronke- 
lijke appendices samengevoegd, en zijn twee nieuwe toegevoegd. Bij 
de in dit boek gebruikte terminologie is, althans voorzover ons 
inziens praktisch mogelijk was, aansluiting gezocht bij de 'Woorden- 
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lijst gegevensverwerking' van het Nederlands Normalisatie-instituut 
(NEN 3386). Voor de notatie van gebroken getallen wordt consequent 
de Angelsaksische 'puntconventie' gehanteerd. 


Alle voorbeeldprogramma's zijn 'vernederlandst'. Ze zijn uitgetest 
met een WATFIV-compiler (versie V2L0 van maart 1980) op het IBM 
systeem/370 van de Technische Hogeschool te Delft. Strikt genomen 
is deze compiler niet gebaseerd op FORTRAN 77, maar op 
FORTRAN IV volgens het IBM-document GC28-6515. De compiler 
kent echter zodanige extensies dat hij op één (triviaal) punt na in 
overeenstemming is met SF/k. Dit betreft de zogenaamde list 
directed in- en uitvoerstatements; bij het gebruik van WATFIV die- 
nen deze zonder asteriskteken te worden gecodeerd. Naar verwach- 
ting zal WATFIV in de toekomst onder meer op dit punt worden aan- 
gepast. 


Tenslotte: ook aan de totstandkoming van deze Nederlandse versie 
hebben meerdere mensen op verschillende manieren bijgedragen. 
In navolging van de auteurs zijn hun namen hier en daar in dit boek 
verwerkt. 


Pijnacker 


februari 1981 J.M. den Haan 


BIJ DE TWEEDE (GEWIJZIGDE) DRUK) 


De tand des tijds pleegt in computerland hard te knagen. Dat dit 
consequenties heeft voor boeken over computers en programmeren 
behoeft geen betoog. 


Zo werd de eerste druk van dit boek min of meer afgestemd op de 
toenmalige praktijksituatie bij een aantal Hogere Technische Scho- 
len in Nederland, die voor computerfaciliteiten veelal waren aan- 
gewezen op de rekencentra van universiteiten en hogescholen. Via 
telefonische ‘remote batchverbindingen' konden programma's en 
data in ponskaartvorm ter verwerking op de centrale machine wor- 
den aangeboden, en resultaten op lokale regeldrukkers worden 
afgedrukt. 


De meeste Nederlandse instellingen voor hoger beroepsonderwijs 
beschikken inmiddels over eigen computerinstallaties, waarbij in 
plaats van de welhaast archaische ponskaart gebruik wordt gemaakt 
van terminals. Deze tweede druk is dan ook vooral aangegrepen om 
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het boek (ook) in dit opzicht up-to-date te maken. Tegelijkertijd is 
het boek voor bredere kring geschikt gemaakt door verwijzingen 
naar specifieke computers en compilers te elimineren of minstens 
enigszins te relativeren. Een en ander heeft tot gevolg gehad dat 
de programmalistings moesten worden aangepast. Daarbij moest 
helaas een aantal naamvermeldingen van mensen die aan de origi- 
nele Engelse versie of aan de eerste Nederlandse druk hadden mee- 
gewerkt (zie 'Woord vooraf') verdwijnen. Door technische omstan- 
digheden moesten de programma's overigens opnieuw worden inge- 
typt. Verder is uiteraard van de gelegenheid gebruik gemaakt om 
fouten te corrigeren. Wat dit laatste betreft is dank met name ver- 
schuldigd aan de heer C. Jibben, die ons op verschillende onge- 
rechtigheden attendeerde. pi 


Al met al zal het boek in zijn nieuwe vorm beter tegemoet komen 
aan de huidige situatie. Door de kosmetische 'face-lift' zal van de 
knaagsporen van de tand des tijds in ieder geval weinig meer te 
merken zijn ... 


Pijnacker 


januari 1984 J.M. den Haan 
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1 HET PROGRAMMEREN 


Dit boek heeft als doelstelling de gebruiker in te leiden in het 
gestructureerd programmeren in FORTRAN 77, Achter deze simpele 
mededeling gaan begrippen schuil die wellicht nadere toelichting 
nodig hebben. ‘Programmeren’, ‘gestructureerd! programmeren, 
'FORTRAN 77': wat bedoelen we daar eigenlijk mee? 


Dat dit boek te maken heeft met computers -en in het bijzonder met 
het gebruik van de computer, in tegenstelling tot zijn ontwerp of 
constructie- is hopelijk geen verrassing. Welnu, om een computer 
te kunnen gebruiken moeten we zijn 'taal' leren spreken. Daarbij 
wordt hij in het algemeen niet in de letterlijke zin van het woord 
'toegesproken', hoewel dat tot op zekere hoogte wel mogelijk is. 
Gebruikelijker is het, de computer mededelingen te doen in een vorm 
die machinaal leesbaar is, bijvoorbeeld met behulp van een zoge- 
naamde terminal. Met deze mededelingen geven we aanwijzingen 
omtrent het uit te voeren rekenwerk. Dit brengt ons op het eer- 

ste begrip: het programmeren. 


1.1 WAT IS PROGRAMMEREN? 


Programmeren is het schrijven van opdrachten voor een computer in 
zo'n vorm, dat hij ze kan 'begrijpen' en uitvoeren om daarmee een 
bepaald probleem op te lossen. De opdrachten worden gesteld in een 
programmeertaal. FORTRAN 77 is zo'n taal -een van de vele. 

De opdrachten worden samengesteld door een of meer mensen -de 
programmeur(s)- en vormen samen het programma. Het program- 
ma wordt, bijvoorbeeld door middel van ponskaarten, in de com- 
puter ingevoerd, en komt daarbij voorlopig terecht in een deel van 
de computer dat men geheugen noemt. 


De opdrachten zouden vervolgens uitgevoerd kunnen worden, mits de 
computer de programmeertaal, waarin die opdrachten zijn gesteld, 


rechtstreeks zou kunnen verstaan. Meestal is dit niet het geval. De 
enige taal die de computer direct verstaat, is namelijk zijn eigen 
machinetaal. Opdrachten die in een taal zoals FORTRAN 77 zijn 
gesteld, kunnen echter wel automatisch —-door: de computer zelf- 

in die machinetaal worden vertaald, Daartoe moet de computer over 
een speciaal vertaalprogramma beschikken. Men noemt dit een 
compiler. Anders gezegd: het oorspronkelijke programma, ook wel 
bronprogramma (Engels: source program) genoemd, moet worden 
omgezet in een doelprogramma (Engels: object program, ook wel: 
target program). Daarna kan het -althans in principe- worden uit- 
gevoerd. Men spreekt daarbij van de executie van het programma. 
De compiler zelf is overigens een programma, dat meestal door de 
fabrikant van het computersysteem wordt geleverd. 


Computers zijn slechts in staat een beperkt aantal verschillende 
opdrachten uit te voeren, De verzameling opdrachten of instructies 
die een computer van een bepaald fabrikaat '‘verstaat', noemt men 
de instructieset of het instructierepertoire van die machine. Het 
instructierepertoire van bijna iedere computer omvat onder meer de 
mogelijkheid getallen van de ene naar de andere plaats in het geheu- 
gen over te brengen, getallen bij elkaar op te tellen, van elkaar 

af te trekken, met elkaar te vermenigvuldigen, en door elkaar te 
delen. Kortom, allerlei rekenkundige bewerkingen kunnen worden 
uitgevoerd, en wel met snelheden in de orde van millioenen bewer- 
kingen per seconde. Naast bewerkingen op rekenkundige gegevens, 
kan de computer ook bewerkingen uitvoeren op alfabetische gegevens, 
zoals het onderling vergelijken en verplaatsen van die gegevens in 
het geheugen. Hierdoor kan bijvoorbeeld automatisch worden gesor- 
teerd. Men spreekt daarom in het algemeen ook wel van data- of 


gegevensverwerkende apparatuur. 


Het schrijven van een programma voor zo'n gegevensverwerkend 
apparaat komt neer op het bedenken en coderen van de opdrachten 
die men wil laten uitvoeren. Zou elke opdracht van een programma 
slechts eenmaal uitgevoerd kunnen worden, dan zou men bij toepas- 
singen waar steeds hetzelfde rekenpatroon voorkomt, maar met tel- 
“kens andere gegevens, aangewezen zijn op het bijna eindeloos code- 
ren van steeds weer dezelfde soort opdrachten. Gelukkig bestaan er 
ook opdrachten, die tot gevolg hebben dat een reeks andere opdrach- 
ten telkens opnieuw wordt uitgevoerd. Een bepaalde verzameling 
opdrachten kan dus door de computer -naar believen van de pro- 
grammeur- worden herhaald. Er ontstaat daarbij als het ware een 
programmalus of -cyclus. Uiteraard is het daarbij zaak, dat de 
bewerkingen inderdaad worden uitgevoerd op steeds andere gegevens; 
herhaling zou anders nutteloos zijn. 


Een belangrijke eigenschap van de computer is dan ook, dat hij in 


staat is beslissingen te nemen. De herhalingscyclus zou anders 
nooit doorbroken kunnen worden. De beslissingsopdracht waarmee 
men dit bereikt heeft een tamelijk eenvoudig karakter. Zo'n opdracht 
zou bijvoorbeeld de volgende strekking kunnen hebben: 


INDIEN DE WAARDE VAN GETAL N GROTER DAN OF 
GELIJK AAN NUI IS, HERHAAL DAN DE VOORGAANDE 
OPDRACHTEN VANAF PUNT A; GA ANDERS DOOR MET 
HET UITVOEREN VAN DE VOLGENDE OPDRACHT 


Afhankelijk van een bepaalde voorwaarde of conditie kan de compu- 
ter dus ‘beslissen! een bepaalde actie al dan niet te ondernemen. 
Anders gezegd: er is een mogelijkheid aanwezig tot voorwaardelijke 
uitvoering van programmaopdrachten. 


1.2 WAT IS GESTRUCTUREERD PROGRAMMEREN? 


In het bovenstaande hebben we ons beziggehouden met het begrip 
programmeren. Wat bedoelt men echter met 'gestructureerd!' pro- 
grammeren? Gestructureerd programmeren -een betrekkelijk 
recente ontwikkeling- omvat zowel het verwerken van bepaalde 
technieken in een programma zelf, als een bepaalde aanpak van het 
programmeren in het algemeen. In eerste instantie is het doel hier- 
van, een antwoord te geven op de vraag, hoe een probleem correct 
kan worden geprogrammeerd. Tevens tracht men met behulp van 
deze techniek bij het programmeren een zodanige doorzichtigheid te 
bevorderen, dat het resulterende programma ook voor anderen dui- 
delijk is. Dit laatste is vooral van belang wanneer programma's in 
een later stadium moeten worden uitgebreid of anderszins veranderd. 


Computerprogramma's kunnen betrekkelijk simpel en ongekunsteld 
zijn, maar ook zeer ingewikkeld en moeilijk te begrijpen. Bij grote 
programma's kan alleen al de omvang een duidelijk begrip belemme- 
ren. Toepassing van een goede structuur kan de gecompliceerdheid 
van een programma binnen de perken houden. In dit boek zullen we 
ruime aandacht besteden aan de middelen die ons daarbij ten dienste 
staan. 


1.3 WAT IS FORTRAN 77? 


FORTRAN is een afkorting van de engelse uitdrukking 'formula 
translation! (= formule vertaling). Het is een programmeertaal die 
ontwikkeld werd om programma's onafhankelijk te maken van de te 
gebruiken computer. Een FORTRAN programma moet dus door 
verschillende computertypes verwerkt kunnen worden. Men noemt 
FORTRAN daarom een hogere-orde taal. Zulke talen zijn in het 
algemeen betrekkelijk gemakkelijk te leren en te gebruiken. 


Net als een natuurlijke taal, kent een programmeertaal een 'woor- 
denschat' en een 'grammatica'. Men zou in dit verband van taal spe- 
cificaties kunnen spreken. De taalspecificaties van FORTRAN waren 
in eerste instantie gericht op het programmeren van reken-intensieve 
problemen, zoals die bijvoorbeeld in technisch-wetenschappelijk 
werk voorkomen. Door een recente uitbreiding van de taalspecifica- 
ties, is FORTRAN nu ook geschikt geworden voor de verwerking 

van alfabetische gegevens, zoals in meer administratief- en taal- 
kundig-gerichte toepassingen. Door andere uitbreidingen leent de 
taal zich nu ook beter voor het gestructureerd programmeren. 


De nieuwe vorm van de taal staat bekend als FORTRAN 77. De taal- 
specificaties zijn vastgelegd in de norm X3,9 - 1978 van het Ameri- 
can National Standards Institute (ANSI). Deze norm kwam in 1977 
tot stand -vandaar de aanduiding '77'- en werd op 1 maart 1980 
door de International Standards Organization aanvaard als ISO-norm 
1539, 


FORTRAN 77 is een zeer uitgebreide taal, en, hoewel elk gedeelte 
op zich gemakkelijk te leren is, is er toch wel enige studie voor 
nodig om de taal als geheel onder de knie te krijgen. Voorzieningen 
om programma's geschreven in FORTRAN 77 te verwerken zijn 
inmiddels voor verschillende computertypes aanwezig. Met andere 
woorden: er zijn voor die computers compilers beschikbaar, die de 
in FORTRAN 77 gestelde opdrachten kunnen vertalen in de taal van 
de desbetreffende machine. 


In het verleden hebben hogere-orde talen bewezen veel langer mee te 
gaan dan machinetalen, die veelal na verloop van een jaar of vijf ver- 
anderd werden. FORTRAN is ontstaan in de vijftiger jaren, en heeft 
in de loop van de tijd verschillende uitbreidingen ondergaan. 

Elke nieuwe versie werd in principe zo ontworpen, dat ook program- 
ma's geschreven volgens de specificaties van voorgaande versies 
met die nieuwe versie in overeenstemming bleven. In het Engels 
gebruikt men hiervoor de term 'compatibility', en in dit geval, om- 
dat er sprake is van 'compatibility' in één richting -van 'oud' naar 


'nieuw'- spreekt men van 'upwards compatible'. Strikt genomen 
geldt voor FORTRAN 77 geen volledige 'upwards compatibility', 
maar in het algemeen zal dit voor de praktijk weinig of geen conse- 
quenties hebben. Programma's geschreven in voorgaande versies 
van FORTRAN behoeft men bij het invoeren van een nieuwe compiler 
dan niet aan te passen. De voorlaatste FORTRAN-norm (ANSI X3. 9- 
1966) dateert van 1966, en wordt ook vaak aangeduid als FORTRAN 
IV. In dit boek zullen we daarvoor de naam FORTRAN 66 gebruiken. 
Overigens zal in dit boek vaak de naam FORTRAN zonder nadere 
aanduiding worden gebruikt; er wordt dan steeds FORTRAN 77 
bedoeld. 


Vanwege de betrekkelijk lange levensduur van hogere-orde program- 
ma's, is het van belang dat men ze gemakkelijk kan aanpassen aan 
veranderingen in de toepassingssituatie; zulke veranderingen mogen 
in het algemeen geen aanleiding zijn, een programma geheel te her- 
schrijven. Goed ontworpen en gedocumenteerde programma's laten 
zich gemakkelijk aanpassen, en in dit boek wordt aan het schrijven 
van dergelijke programma's dan ook de nodige aandacht besteed. 


In dit boek komt FORTRAN 77 overigens niet volledig aan bod. 
We gaan uit van een ‘deelverzameling! of 'subset' van de taal. die de 
naam SF/k draagt. Meer hierover in de volgende paragraaf. 


1.4 WAT IS SF/k? 


De aanduiding SF/k is een afkorting van Structured FORTRAN 
subset k, waarbij k een natuurlijk getal is dat de waarden 1, 2, 3 
enzovoort kan aannemen. SF/k, een onderwijskundige benadering 
van FORTRAN ontwikkeld aan de Universiteit van Toronto, houdt in 
dat steeds een aantal verschillende taalelementen gegroepeerd wordt 
in afzonderlijke 'subsets'. De eenvoudigste subset is SF/1. De ele- 
menten daarvan zijn zo gekozen dat men weliswaar simpele, maar 
toch volledige FORTRAN-programma's kan schrijven, en eventueel 
door een computer kan laten verwerken. De volgende subset, SF/2, 
is uitgebreider gedefinieerd, en bevat tevens de taalelementen van 
SF/1. SF/2 is dus als het ware 'hoger' dan SF/1. Beschouwt men de 
subsets als cirkels, dan is SF/2 voor te stellen als een cirkel, die 
op zijn beurt een andere cirkel bevat, namelijk SF/1. Zo maakt elke 
subset, met uitzondering van de hoogste, deel uit van een omvattende 
cirkel (zie figuur 1-1). De hoogste subset is SF/8. Deze is zelf te 
beschouwen als een subset van FORTRAN 77. 


he TF/3. TEA sin» 


Fig.1l-1. Voorstelling van SF/k subsets als 
een serie concentrische cirkels, 


De behandeling van de leerstof in dit boek volgt min of meer de sub- 
setindeling die in de taal is aangebracht. Na behandeling van de ele- 
menten van een subset worden telkens voorbeelden gegeven, waarin 
het gebruik van de nieuwe uitdrukkingsmogelijkheden wordt gedemon- 
streerd. Deze benadering is in zekere zin zelf gestructureerd, en 
weerspiegelt de wijze van programmeren die we in dit boek willen 
bevorderen. 


1.5 WAAROM EEN SUBSET LEREN? 


FORTRAN 77 is, zoals gezegd, een zeer uitgebreide taal. Sommige 
elementen ervan worden slechts zelden, of door slechts enkele pro- 
grammeurs gebruikt. Ongetwijfeld kan deskundige toepassing van 
bepaalde mogelijkheden van de taal leiden tot effectiever programme- 
ren. Een beginner zal echter niet in staat zijn, alle uitdrukkingsmo- 
gelijkheden van de taal te benutten, en al spoedig verstrikt raken in 
de ingewikkeldheid van de taalspecificaties. Door zich tijdens het 
leerproces telkens te beperken tot een kleine subset, zal men hoofd- 
zaken gemakkelijker kunnen onderscheiden van bijzaken, en zich 


beter kunnen concentreren op datgene waar het eigenlijk om gaat: 
het leren programmeren. Maar wellicht is het feit dat de elementen 
van SF/k zo gekozen zijn, dat ze het gestructureerd programmeren 
stimuleren, nog het belangrijkste voordeel van deze subsetbenade- 
ring. 


1.6 PROGRAMMACORRECTHEID 


Een van de frustrerende eigenschappen van de computer is, dat hij 
precies doet wat de gebruiker van hem vraagt. Helaas blijkt dat wel 
eens wat anders te zijn dan datgene wat de gebruiker bedoelt. Soms 
valt het zelfs niet op dat de computer onjuiste resultaten levert 
omdat men blindelings op het kunnen van het rekenwonder vertrouwt. 


In het algemeen kan men stellen dat computerresultaten, technisch 
gezien, inderdaad correct zijn voor het gegeven programma en de 
eventueel daaraan toegevoegde verwerkingsgegevens, ook wel 
invoergegevens genoemd. Moderne computers zijn namelijk zeer 
betrouwbaar, en echte rekenfouten komen hoogst zelden voor. De 
vraag is echter: is het programma correct? En: zijn de invoer- 
gegevens wel juist? 


Een manier om de juistheid van computerresultaten te controleren is 
die resultaten ook langs een andere weg te produceren en beide uit- 
komsten met elkaar te vergelijken. Dit betekent meestal dat het 
probleem met de hand, of eventueel met behulp van een zak- of 
tafelrekenmachine, uitgewerkt moet worden. Uiteraard rijst dan de 
vraag, of we dan niet bezig zijn het spreekwoordelijke paard achter 
de wagen te spannen. We vragen de computer een stuk werk voor 
ons te verrichten, juist om onszelf de moeite van dat werk te kunnen 
besparen, en dan blijkt dat we het werk toch zelf moeten doen om te 
controleren of er geen fouten zijn gemaakt. 


Het voordeel van een computerprogramma is nu, dat het gebruik 
daarvan niet beperkt behoeft te zijn tot één bepaalde verzameling 
invoergegevens. Als het programma eenmaal correct is, kan het 
ook voor andere gegevens worden gebruikt. De schade kan dan ruim- 
schoots worden ingehaald. Een programma dat bijvoorbeeld facturen 
produceert, kan op zijn correctheid worden gecontroleerd door eerst 
voor een aantal representatieve gevallen de resultaten met de hand 
uit te rekenen. Daarna kan het programma zonder verdere uitge- 
breide controle worden gebruikt voor vele andere gevallen. 


Bij het testen van een programma komt het er op aan, dat men van 
werkelijk representatieve gegevens uitgaat. Alle bijzondere omstan- 
digheden die in de praktijk kunnen voorkomen, moet men in principe 
in het testproces verdisconteren. Dit blijkt voor grote programma's 
zeer moeilijk, zo niet onmogelijk te zijn. Programma's worden dan 
ook vaak in produktie genomen zonder tot in de finesses te zijn uitge- 
test. Onder bepaalde omstandigheden kunnen er dan ook fouten 
optreden. Het is dan maar de vraag, of deze fouten ook werkelijk 
ontdekt worden. Veel hangt hierbij af van de kritische instelling van 
de gebruiker. 


Vanwege het onvermogen om in de praktijk de correctheid van een 
programma door middel van testen aan te tonen, pleiten veel infor- 
matici voor het bewijzen van programmacorrectheid met behulp van 
andere technieken. Deze technieken zijn wiskundig van aard, en 
steunen voor een belangrijk deel op het lezen en bestuderen van het 
programma. Ook hier blijkt het gestructureerd programmeren 
vruchten af te werpen: de correctheid van een goed gestructureerd 
programma is eenvoudiger te bewijzen dan van een slecht gestructu- 
reerd programma. Helaas zijn theoretische correctheidsbewijzen 
niet altijd te leveren. 


1.7 SAMENVATTING 


Dit boek is een inleiding tot het programmeren van computers. In 
dit hoofdstuk kwamen de volgende kernbegrippen aan de orde. 


(computer)programma: De verzameling opdrachten die de 
computer nodig heeft om een bepaald 
probleem op te lossen. 


executie van een pro- Het daadwerkelijk uitvoeren van een 
gramma: programma door de computer. 
programmeren: Het opstellen van een programma. 
gestructureerd program- Programmeren volgens een moderne 
meren: methodiek, gericht op het ontwikkelen 


van betrouwbare en gemakkelijk te 
onderhouden programma's, waarbij 
vooral nadruk wordt gelegd op de pro- 
grammastructuur. 


hogere-orde program- 
meertaal: 


FORTRAN 77: 


FORTRAN 66: 


SF /k: 


programmacorrectheid: 


In tegenstelling tot machinetaal een 
betrekkelijk gemakkelijk te hanteren 
taal, waarbij programmaopdrachten 
op een min of meer ‘natuurlijke! wijze 
kunnen worden gesteld. Om een pro- 
gramma dat in hogere-orde taal 
geschreven is te verwerken, heeft de 
computer een compiler nodig. 


De hogere-orde taal waarop dit boek 
is gebaseerd. 


De aanduiding die in dit boek wordt 
gebruikt voor de ‘oude! vorm van 
FORTRAN, veelal FORTRAN IV 
genoemd. 


Een bepaalde subset van de taalelemen- 
ten van FORTRAN 77, die in dit boek 
als een zelfstandige taal wordt gepre- 
senteerd. Daarbij geldt dat een pro- 
gramma geschreven in SF/k tevens 
een FORTRAN 77 programma is, maar 
dat een programma geschreven in 
FORTRAN 77 niet noodzakelijkerwijs 
een SF/k programma is. De subset 
SF/k zelf is opgebouwd uit de subsets 
SF/1 tot en met SF/8. 


De mate waarin een programma op 
betrouwbare wijze aan de gestelde 
eisen voldoet. De correctheid van pro- 
gramma's van enige omvang of inge- 
wikkeldheid is vaak moeilijk, zo niet 
onmogelijk aan te tonen. Het leveren 
van wiskundige correctheidsbewijzen 
kan belangrijk vereenvoudigd worden 
als het programma gestructureerd is 
opgebouwd. 


2 DE COMPUTER 


Aan het begin van het vorige hoofdstuk is als doelstelling van dit 
boek het 'leren programmeren! genoemd. Weliswaar 'gestructu- 
reerd', en: 'in FORTRAN 77', maar in ieder geval niet: 'hoe ont- 
werp ik een computer? ', of: ‘hoe zit een computer in elkaar? '. 
Tussen techniek en programmeren blijken echter raakvlakken te 
bestaan, waarvan enige kennis de FORTRAN-programmeur geen 
windeieren zal leggen. In dit hoofdstuk wordt nader op die zaken 
ingegaan. Men moet hierbij echter geen uitgebreide verhandeling 
over de technische principes van computers en computerapparatuur 
verwachten. De onderwerpen die aan de orde komen, en de diepgang 
waarmee ze worden behandeld, wordt uitsluitend bepaald door hun 
relevantie voor de (FORTRAN) programmeerpraktijk. 


2.1 HET BEGRIP BIT 


Wil een computer met gegevens kunnen werken -en we mogen toch 
wel aannemen dat dit de bedoeling is- dan zullen die gegevens in een 
verwerkbare vorm in die computer vastgelegd moeten worden. Er 
zal daarom sprake zijn van een interne gegevensrepresentatie. 


Moderne computers zijn gebaseerd op het zogenaamde binaire tal- 
stelsel. In plaats van het grondtal 10, en de bijbehorende cijfers 0 
tot en met 9 (zoals bij het huis-tuin-en-keuken- of decimale stelsel) 
maakt men daarbij gebruik van het grondtal 2, en de cijfers 0 en 1. 


De volgende voorbeelden kunnen dit verduidelijken. In het decimale 
stelsel betekent de cijferreeks 526: 


9 x 10: AAO rewi 


of, genoteerd in machten van het grondtal 10: 


Br 10e in Med. E 


Zo betekent de cijferreeks 1101, als binair getal opgevat: 


reerd nm 


SR Bak Td On Bet met 
= 13. 


De binaire cijfers 0 en 1 noemt men ook wel 'bit', een term die afge- 
leid is van de Engelse benaming 'binary digit' (= binair cijfer). Wil 
men in een computer met een binair systeem werken, dan moet men 
zo'n bit ook daadwerkelijk kunnen vastleggen. Daarvoor maakt men 
gebruik van een zogenaamd bistabiel of tweewaardig element. Ken- 
merk van zo'n element is, dat hij zich altijd in één van twee moge- 
lijke stabiele fysieke toestanden bevindt. Vandaar de aanduiding 
‘bistabiel', Voorbeelden van een bistabiel element zijn een transis- 
tor (die zich in elektrisch geleidende of niet-geleidende toestand kan 
bevinden) en een magneetkerntje (dat in de ene of in de andere rich- 
ting gemagnetiseerd kan zijn). Door aan de fysieke toestanden die 
het element kan aannemen arbitrair de cijferwaarde 0 of 1 toe te 
kennen, kan men zo'n element een binair cijfer laten voorstellen. 


In de loop van de tijd is een zekere spraakverwarring ontstaan ten 
aanzien van het begrip bit. Oorspronkelijk bedoeld in de puur nume- 
rieke betekenis van 'binair cijfer', wordt het woord 'bit' tegenwoor- 
dig ook gebruikt in de betekenis van de fysieke elementen waarmee 
een binair cijfer wordt voorgesteld. 


2.2 DE INTERPRETATIE VAN BITREEKSEN 


Door een aantal bits te combineren tot een bitreeks, en bitreeksen 
op een bepaalde wijze in te richten en te interpreteren, kunnen gege- 
vens worden voorgesteld, In de vorige paragraaf hebben we hier al 
iets van gezien: de binaire cijferreeks 1101 bleek opgevat te kunnen 
worden als het decimale getal 13. Anders gezegd, de bitreeks 1101 
kon worden geinterpretéerd als het decimale getal 13. 


Hiertoe moet wel een interpretatieafspraak worden gemaakt. In dit 
geval luidt de afspraak: vat de bitreeks op als een natuurlijk binair 
getal. Er kunnen ook andere afspraken worden gemaakt. Bijvoor- 
beeld: vat een reeks van acht bits op als een letter van het alfabet, 
volgens een in een tabel vastgelegd coderingspatroon. Wordt de let- 
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ter P in deze tabel voorgesteld door het coderingspatroon 11010111, 
I door 11001001, E door 11010101 en T door 11100011, dan kan de 
bitreeks 


11010111110010011101010111100011 
geïnterpreteerd worden als de tekst: 


PIET 


Met dit soort interpretatieafspraken komen we op het gebied van 
codes. Gangbare codes voor de letters van het alfabet cijfers en 
bijzondere tekens zoals algebraïsche tekens, leestekens enzovoort 
-samen ook wel alfanumerieke tekens genoemd- zijn EBCDIC 
(Extended Binary Decimal Interchange Code) en ASCII (American 
Standard Code for Information Interchange). 


Ook voor getallen bestaan interpretatieafspraken. In plaats van code, 
spreekt men dan van getalrepresentatie. Er zijn verschillende getal- 
representaties, ook binnen één computersysteem. Voor een deel is 
dit terug te voeren op het bestaan in de wiskunde van verschillende 
getalverzamelingen. Voorbeelden hiervan zijn de verzamelingen van 
de gehele getallen (zoals 1, 2, -3 en 12) en de rationale gebroken 
getallen (zoals -1.5, 0. 71061 en 123.4)*. 


Het vastleggen van deze getalcategorieën in de computer vergt ver- 
schillende interne representatievormen. Dit is dan ook de achter- 
grond van verschillende zogenaamde datatypen in FORTRAN zoals 
INTEGER en REAL, om alvast enkele te noemen. Overigens, om 
mogelijke misverstanden te voorkomen: interne gegevensrepresenta- 
ties -ongeacht of die getallen, alfanumerieke gegevens of iets 
anders betreffen- zijn in eerste instantie een zaak van de computer 
zelf. Als programmeur kan men zonder meer met de gewone 'uit- 
wendige'! representatie werken, zoals bijvoorbeeld '13' of 'PIET', en 
conversies naar de bijbehorende interne representatie aan de com- 
puter overlaten. 


De interne representatie van een datatype hangt nauw samen met de 
‘architectuur' van de computer. Tussen verschillende computers 
kan die representatie sterk variëren. 


* Zoals in de 'Verantwoording' vermeld, gebruiken we in dit boek de Angel- 
saksische punt-conventie om decimale breuken te noteren. 


2.3 DE ORGANISATIE VAN BITREEKSEN 


Om doelmatig te kunnen werken, worden bits op een bepaalde wijze 
in de computer georganiseerd. Dit geldt vooral voor het geheugen- 
deel van de computer. Een aantal bits wordt steeds gegroepeerd in 
een vaste, elementaire gegevenseenheid die we een byte noemen. 
Het aantal bits waaruit een byte bestaat, hangt af van het computer- 
type. Doorgaans is de byte-lengte acht bits. Men spreekt daarbij 
ook wel van een oktade. 


Het elementaire van een byte komt tot uitdrukking in zijn adres, een 
uniek identificerend nummer dat aan elke byte in het geheugen van 
een computer verbonden is. Let wel: verbonden. Het adres wordt 
bijgehouden door middel van een intern referentiesysteem dat volle- 
dig los staat van de inhoud van de byte. De byte zelf bevat dus geen 
adres, maar uitsluitend 'echte' gegevens. 


Aan de hand van het adres kan de inhoud van een bepaalde byte in het 
geheugen -dat uit vele millioenen bytes kan bestaan- worden terug- 
gevonden. De byte wordt als geheel verwerkt. De afzonderlijke bits 
waaruit hij bestaat hebben geen adres, en zijn dus niet rechtstreeks 

te benaderen. De byte is de kleinst adresseerbare gegevenseenheid 

in een computer. 


31 0 


32 bits genummerd zoals gebruikelijk in de richting van toenemende 
significantie (laag naar hoog) vanaf nul 


31 24 23 16 15 8 7 0 


4 bytes, waarbij 1 byte = 8 bits (oktade) 


31 


PRE et eer ge oaeen Tu 


l woord, waarbij 1 woord = 4 bytes = 32 bits 


Fig. 2-1. Schematische weergave van de opbouw van bytes en woor- 
den, uitgaande van een oktade-georiënteerde computer met 
een woordlengte van 32 bits. 
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Omdat ook: een byte nog een betrekkelijk kleine gegevenseenheid is, 
combineert men een aantal opeenvolgende bytes in het geheugen tot 
een woord. Het aantal bytes waaruit een woord bestaat is afhanke- 
lijk van het computertype, en kan zelfs variabel zijn. Gangbaar is 
een vaste woordlengte van vier bytes. Bij een oktade-georiënteerde 
machine levert dit een woordlengte van 32 bits (zie fig. 2-1). Ook 
woorden zijn adresseerbaar. Men gebruikt hierbij meestal het adres 
van de eerste byte van het woord. 


2.4 GEVOLGEN VOOR DE PROGRAMMEUR 


Het feit dat bij een computer gewerkt wordt met interpretatie- en 
organisatieafspraken ten aanzien van bitreeksen heeft gevolgen voor 
de FORTRAN-programmeur. Het interpretatieaspect manifesteert 
zich onder andere in de noodzaak in een programma te specificeren 
welk datatype men voor een bepaald gegeven wil gebruiken. 


Daarnaast krijgt de programmeur met conversies te maken. Deze 
kunnen nodig zijn bij rekenkundige bewerkingen waarbij verschillende 
datatypen zijn betrokken, maar ook bij het gegevenstransport tussen 
geheugen en externe apparatuur, bijvoorbeeld het lezen van invoer- 
waarden voor een programma. 


De organisatieafspraken ten aanzien van bitreeksen hebben boven- 
dien gevolgen voor de grootte-orde en de nauwkeurigheid van de getal 
getallen waarmee men kan werken. Ook de mogelijkheid de beschik- 
bare geheugenruimte in te delen met zogenaamde COMMON- 
statements hangt hiermee samen. 


2.5 DE FUNKTIONELE OPBOUW VAN EEN COMPUTER 


Bij elk computersysteem kunnen we zes functies onderscheiden: 


— invoer 

- geheugen 
- rekenen 
- beslissen 
- besturing 
— uitvoer 
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Tot op zekere hoogte vinden we deze functies ook terug bij de wijze 
waarop de mens gegevens verwerkt. Dit proces begint met het 

in zich opnemen van de te verwerken gegevens -in wezen een 
invoerfunctie. 


De invoer- en geheugenfuncties 


Hierbij worden gegevens afkomstig uit de 'buitenwereld' afgetast en 
omgezet in een vorm die voor verdere interne verwerking geschikt 
is. De mens beschikt hiertoe over zintuigen, de computer over 
invoermedia en -apparatuur. Bij de computer spreekt men, in plaats 
van het invoeren, ook wel van het lezen van gegevens. Ingelezen 
gegevens worden opgeslagen in een geheugen en -eventueel in een 
later stadium- verwerkt door een verwerkingsorgaan. Ook dit is 
herkenbaar in de menselijke 'gegevensverwerking'. 

Behalve invoergegevens kan het geheugen ook andere gegevens, 

zoals tussenresultaten en eindresultaten, bevatten. 


De reken-, beslissings- en besturingsfuncties 


Bij de interne verwerking van gegevens is sprake van een reken-, 
een beslissings- en een besturingsfunctie. In termen van apparatuur 
gesproken zijn deze functies ondergebracht in een zogenaamde 


centrale verwerkingseenheid, veelal afgekort als CVE of CPU 


(Engels: central processing unit). 


Het verwerken van gegevens is vooral een interactieproces tussen de 
verwerkingseenheid en het geheugen. Het geheugen bevat de te ver- 
werken gegevens en de verwerkingsvoorschriften (het programma). 
De instructies waaruit het programma bestaat worden stuk voor stuk 
naar de centrale verwerkingseenheid getransporteerd, gedecodeerd, 
en door het reken- en beslissingsgedeelte van de centrale verwer- 
kingseenheid -de zogenaamde arithmetic and logic unit (ALU)- 
uitgevoerd. 


De uitvoerfunctie 


De eindresultaten van het verwerkingsproces worden opgeslagen in 
het geheugen, en van daaruit door middel van uitvoerapparatuur aan 
de 'buitenwereld' kenbaar gemaakt. Zo'n uitvoerapparaat is bijvoor- 
beeld de regeldrukker. Bij de mens vinden we de uitvoerfunctie 
onder andere terug in zijn mogelijkheden tot verbale en schriftelijke 
communicatie. De term 'uitvoer' kan overigens verwarring stichten, 
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Men kan de term gebruiken in de zin van 'naar buiten brengen' maar 
ook in de zin van 'programma-executie'!. 


Andere aspecten 


Het gehele gegevensverwerkende proces, van invoer tot uitvoer, 
wordt gecoördineerd door het besturingsdeel van de centrale ver- 
werkingseenheid. Daartoe zijn er stuurverbindingen aanwezig tussen 
dit deel van de CVE en alle andere functionele onderdelen van het 
computersysteem. Het geheel kunnen we nu als volgt in kaart bren- 
gen (zie figuur 2-2). 


legende: 


gegevensstroom 


besturings- 
signalen 


programma en : $ aesssoaseeeansneneennneseeesennnennnnnnnnne jp : 


A te verwerken 
gegevens 
beslissingen HF 
rekenen : 
a sa ALU : 


resultaten 


invoer uitvoer 


e 
R A O O 


erases, 
esere sesesase, 
e) 
esera sa sareret, 


Fig. 2-2 


Een gegevensverwerkend proces kan men beschouwen als het trans- 
formeren van de in het geheugen aanwezige gegevens tot zinvolle 
informatie. Hoe dit transformatieproces machinetechnisch wordt 
gerealiseerd, is voor de programmeur niet van wezenlijk belang. 
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De programmeur is immers in hoofdzaak betrokken bij het beschrij- 
ven van het transformatieproces, dat wil zeggen: het programmeren. 


2.6 APPARATUURCLASSIFICATIE 


We hebben reeds gezien dat de reken-, beslissings- en besturings- 
functie van een computer in één apparaat -de centrale verwerkings- 
eenheid- zijn ondergebracht. Samen met het geheugen en een 
bedieningssysteem vormt de centrale verwerkingseenheid de centrale 
machine, Alle andere apparatuur behoort tot de zogenaamde perife- 
rie of rand, en is in meer of mindere mate aan de centrale machine 
onderhorig (zie fig. 2-3). 


Er bestaat een grote verscheidenheid aan randapparatuur. In func- 
tioneel opzicht kunnen we twee hoofdgroepen onderscheiden: 


- de in- en uitvoerapparatuur, ook wel I/O-apparatuur genoemd 
(Engels: input/output) 


- de zogenaamde externe geheugenapparatuur die samen het 
externe geheugen vormt. 
Het externe geheugen is op te vatten als een uitbreiding van het 
interne geheugen, dat wil zeggen het geheugen dat deel uitmaakt 
van de centrale machine, en waarop rechtstreeks door de centra- 
le verwerkingseenheid kan worden 'geopereerd'. In paragraaf 2.9 
gaan we hier verder op in. 


Bij het leren programmeren is het zelf opstellen en daadwerkelijk 
door de computer laten uitvoeren van programma's van wezenlijk 
belang. Vandaar dat we in dit hoofdstuk ook enige aandacht besteden 
aan de randapparatuur die we daarbij nodig (kunnen) hebben. Boven- 
dien kan de fysieke uitvoering van zo'n randapparaat consequenties 
hebben voor de manier waarop we het apparaat vanuit het programma 
‘benaderen'. Een reden temeer om even bij dit onderwerp stil te 
staan. Voor de rest laten we de apparatuur de apparatuur, en hou- 
den we ons bij onze (programmeer)leest. 
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legende: centrale machine 


gegevensstroom CVE 


ALU 


periferie 


uescesssanaanassesn, 


ug voeten 


RR 


. 
seascccesescassessonosaesannesosssesonsonesenoesossoeess 


invoer 


w 


En 


B 
È el 
Passeroni 


RRR ` 


. 
. 
s gon 
z ed 

5 
è wen 
w 


periferie extern geheugen periferie 


Fig. 2-3. Centrale machine en periferie. Ten behoeve van de over- 
zichtelijkheid is een aantal functionele onderdelen wegge- 
laten. Om dezelfde reden ontbreken ook de stuurverbin- 
dingen. 


2.7 DE TERMINAL 


Hoewel er ook andere mogelijkheden zijn (bijvoorbeeld ponskaarten), 
gaan we er in dit boek vanuit dat de communicatie tussen computer 
en gebruiker via de zogenaamde terminal verloopt. 

De naam terminal betekent letterlijk: eindpunt. In de computerprak- 
tijk bedoelen we met 'terminal' een apparaat waarmee de gebruiker 
onder meer teksten in een computer kan brengen en hem opdracht 
kan geven daarmee iets te doen. Zo'n terminal wordt ook wel eind- 
of werkstation genoemd. 


Met een terminal kan de gebruiker de computer bijvoorbeeld 
opdracht geven: 
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- de ingevoerde tekst onder een gegeven naam in het achtergrond- 
geheugen op te slaan, 

- een eerder opgeborgen tekst af te drukken, 

- zo'n tekst als een FORTRAN-programma te beschouwen en als 
zodanig te verwerken. 


Bij zulke opdrachten is sprake van communicatie. De (menselijke) 
gebruiker biedt de computer via de terminal gegevens aan (invoer). 
De computer kan daar op zijn beurt min of meer zinvol op reageren 
door informatie op diezelfde terminal te produceren (uitvoer). De 
terminal is dus in feite een gecombineerd invoer/uitvoerapparaat. 


De invoer vindt plaats door middel van een toetsenbord, de uitvoer 
door middel van een beeldscherm of door middel van een afdrukme- 
chanisme waarbij tekens op papier worden geproduceerd. Terminals 
met een afdrukmechanisme noemt men ook wel hardcopy terminals. 
Dat wil zeggen: de computeruitvoer is blijvend op papier beschikbaar 
en kan niet -zoals bij een beeldscherm- door nieuwe gegevens wor- 
den gewist. Het scherm of afdrukmechanisme heeft behalve bij de 
uitvoer overigens ook een functie bij de invoer, namelijk om inge- 
voerde tekst zichtbaar te maken. 


De bediening van een terminal is in grote lijnen vergelijkbaar met 
die van een elektrische schrijfmachine. Behalve de gebruikelijke 
‘huis-tuin-en-keuken'-tekens zoals letters, cijfers en leestekens, 
kent het terminaltoetsenbord echter ook een aantal bijzondere 

sen en toestcombinaties. Voor meer informatie daarover wordt ver- 
wezen naar de desbetreffende documentatie“, 


Editor 


Om teksten als zodanig met behulp van een terminal te kunnen in- 
brengen, moet gebruik worden gemaakt van een speciaal hulppro- 
gramma: de editor. Het gebruik van editors verschilt van computer 
tot computer. Voor meer informatie over dit onderwerp moeten we 

u dan ook naar de documentatie van dat computersysteem verwijzen? 


Interactief werken 


Dankzij de terminal kan men interactief met de computer werken. 
Dat wil zeggen, dat het gegevensverwerkende proces in direct samen- 


à In de bij dit boek behorende aanvulling voor Prime-installaties komen de belang- 
rijkste aspecten van terminalbediening ook aan de orde. 


: Gebruikers van Prime-installaties kunnen uitgebreid informatie over de desbe- 
treffende editor ook in ‘Aanvulling Cursus FORTRAN 77' vinden. 
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spel met de gebruiker kan plaatsvinden. Dit kan (onder meer) inhou- 
den dat allerlei invoerwaarden die de computer voor de uitvoering 
van een programma nodig heeft, tijdens de programma-uitvoering 
worden aangeboden (zie paragraaf 4. 6). 


2.8 AFDRUKAPPARATUUR 


De functie van een uitvoerapparaat is het aan de buitenwereld ken- 
baar maken van -onder andere- de resultaten van de gegevensver- 
werkende processen die zich in een computer afspelen. Zoals we 
hebben gezien liggen die gegevens in binaire vorm in het geheugen 
opgeslagen. Uitvoer bedoeld voor de menselijke gebruiker moet 
echter in leesbare alfanumerieke tekens op papier worden vastge- 
legd. Daartoe maakt men gebruik van afdrukmachines of printers. 


De af te drukken regels worden stuk voor stuk door middel van spe- 
ciale uitvoeropdrachten in het programma opgebouwd. In FORTRAN 
kan men de wijze van papiertransport -ook wel wagenbesturing, 
Engels: carriage control, genoemd- enigzins beinvloeden. Men kan 
bijvoorbeeld een regel overslaan (dubbele spatiëring), naar het 
begin van een nieuwe pagina springen, of een regel verschillende 
malen bedrukken. Daartoe worden in de uitvoeropdrachten speciale 
wagenbesturingstekens meegegeven (Engels: carriage control 
characters). Hierop komen we nog terug. 


2.9 GEHEUGENAPPARATUUR 


Zoals gezegd, maakt men bij computersystemen onderscheid tussen 
twee verschillende geheugencategorieën: enerzijds het interne geheu- 
gen, ook wel hoofdgeheugen (Engels: main storage), primair geheu- 
gen of werkgeheugen (Engels: working storage) genoemd, en ander- 
zijds het externe geheugen, dat ook wel met de namen hulpgeheugen 
(Engels: auxiliary storage), secundair geheugen of achtergrond- 
geheugen (Engels: backing storage) wordt aangeduid. In deze para- 
graaf gaan we eerst in op de functionele verschillen tussen deze 
geheugencategorieën. Daarna komt één van de raakvlakken tussen 
programmatuur en apparatuur aan de orde: de gegevenstoeganke- 
lijkheid bij bepaalde vormen van het externe geheugen. 


Het interne geheugen 


We hebben gezien dat het interne geheugen deel uitmaakt van de 
centrale machine. Het bevat tijdens het verwerkingsproces onder 
andere de te verwerken gegevens en de verwerkingsvoorschriften 

(het programma). 

Ook hebben we gezien, dat het uitvoeren van een programma in 
wezen een interactieproces is tussen het interne geheugen en de 
centrale verwerkingseenheid,. We zouden hierbij, naar analogie van 
een bekend politiek-maatschappelijk verschijnsel, van 'rekenpart- 
ners! kunnen spreken. Een belangrijk kenmerk van het interne geheu- 
gen is zijn toegangstijd -de tijd die nodig is om een gegeven op de 
juiste plaats op te bergen of terug te vinden. Om efficiënt met de 
relatief snelle en dure centrale verwerkingseenheid te kunnen samen- 
werken, moet de toegangstijd van het interne geheugen kort zijn. 
Andere kenmerken van het interne geheugen zijn in het algemeen een 
betrekkelijk geringe opslagcapaciteit, en gegevensopslag voor korte- 
re tijd, dat wil zeggen voor de duur van een programmaverwerking. 
Voor een deel zijn deze kenmerken terug te voeren op de relatief 
hoge kosten die met de korte toegangstijd van het interne geheugen 
samenhangen, en het streven naar een zo groot mogelijke efficiency 
bij het verwerkingsgebeuren binnen de centrale machine. 


Het externe geheugen 


Spreken over 'het' externe geheugen suggereert in meer of mindere 
mate, dat dit geheugen uit één fysiek apparaat zou bestaan. Dat mag 
voor het interne geheugen (veelal) waar zijn, voor het externe geheu- 
gen is het dat niet. Er bestaat op dit gebied een grote verscheiden- 
heid aan apparatuur, en doorgaans zal het externe geheugen van een 
computerinstallatie uit een combinatie van apparatuurmogelijkheden 
bestaan. Men zou van een geheugen-'park' kunnen spreken. 

In tegenstelling tot het interne geheugen, maakt het externe geheugen 
geen deel uit van de centrale machine: de apparatuur waaruit het 
externe geheugen bestaat wordt gerekend tot de periferie. Voorbeel- 
den van die apparatuur zijn vooral magneetschijf- en magneetband- 
geheugens. Overigens is een strikte scheiding tussen geheugenappa- 
ratuur enerzijds, en in- en uitvoerapparatuur anderzijds, niet altijd 
vol te houden. Zelfs een ponskaart, die doorgaans tot de invoerme= 
dia wordt gerekend, is met enige goede wil ook wel als een geheu- 
genmedium op te vatten. 


Kenmerkend voor het externe geheugen is een betrekkelijk grote 
opslagcapaciteit. De opslagcapaciteit van het externe geheugen over- 
treft die van het interne geheugen doorgaans vele malen. De rela- 
tief lage prijs van deze geheugenvormen is daar niet vreemd aan. 
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Daartegenover staat echter wel een grotere toegangstijd, die door- 
gaans zijn oorzaak vindt in de mechanische componenten, die bij 
deze geheugenvormen -in tegenstelling tot het interne geheugen- in 
het geding zijn. Tenslotte kan vermeld worden, dat het externe 
geheugen zich ook van het interne geheugen onderscheidt in de tijds- 
duur van de gegevensopslag: gegevens worden in het externe geheu- 
gen doorgaans voor langere tijd bewaard. Gegevens in het interne 
geheugen blijven daar meestal niet langer dan voor de duur van de 
programma-uitvoering. 


Sequentiële en directe toegankelijkheid 


Tot op zekere hoogte heeft de technische verschijningsvorm van 
externe geheugenapparatuur consequenties voor de wijze waarop de 
opgeslagen gegevens vanuit een programma kunnen worden benaderd. 
Een magneetband, bijvoorbeeld, moet vanaf het begin worden door- 
lopen om een bepaalde plaats op die band te bereiken. Men kan dit 
vergelijken met een geluidsband of -cassette waarvan men een wille- 
keurig gedeelte ten gehore wil brengen. In computertermen spreekt 
men hierbij van sequentiële toegankelijkheid. 


Bij een magneetschijf daarentegen is er sprake van directe toeganke- 
lijkheid (Engels: direct access). Het zoeken van een gegeven is 
hierbij te vergelijken met het laten horen van een willekeurig deel 
van een grammofoonplaat: men kan eenvoudig de naald boven het 
gewenste spoor instellen, zonder eerst alle voorliggende sporen te 
doorlopen. Bij direct-toegankelijke geheugenvormen is sequentiële 
toegankelijkheid uiteraard ook mogelijk. 


Oorspronkelijk was FORTRAN alleen ingesteld op sequentiële bena- 
deringsmogelijkheden, hoewel de meeste compilers ook wel met 
niet-standaard faciliteiten voor directe benadering waren uitgevoerd. 
In FORTRAN 77 zijn beide vormen echter vertegenwoordigd. 


Het lezen en beschrijven van het interne geheugen 


We hebben gezien dat een gegevensverwerkend proces te beschouwen 
is als het transformeren van de in het (interne) geheugen aanwezige 
gegevens tot zinvolle informatie. Dit 'transformeren' houdt in dat 
geheugenlokaties als het ware gelezen en beschreven worden. 


Lezen, of beter: uitlezen, moet in dit verband worden opgevat als 
het kopiëren van het bitpatroon in een bepaalde geheugenlokatie voor 


gebruik elders in het computersysteem. Daarbij blijft de inhoud of 
de ‘waarde! van de oorspronkelijke geheugenlokatie intact. Het uit- 
lezen is dus niet-destructief (Engels: non-destructive read-out). 


Het beschrijven van een geheugenlokatie is daarentegen wel destruc- 
tief, Het oorspronkelijke bitpatroon wordt overgeschreven door een 
ander bitpatroon, waardoor de oude ‘waarde! van de desbetreffende 
geheugenlokatie verloren gaat. In het Engels spreekt men hierbij 
van 'destructive read-in'. 


2.10 SAMENVATTING 


In dit hoofdstuk zijn enkele technische aspecten van de computer 
behandeld die raakvlakken hebben met het programmeren in FOR- 
TRAN. De volgende kernbegrippen kwamen daarbij aan de orde. 


bit: Een bistabiel fysiek element dat 
gebruikt wordt om de binaire cijfers 0 
en 1 voor te stellen. 


byte: Een verzameling bits (bijvoorbeeld 
acht) die de kleinst adresseerbare 
gegevenseenheid in een computer vormt. 


woord: Een gegevenseenheid bestaande uit een 
al dan niet variabel aantal bytes. 


alfanumerieke tekens: De letters van het alfabet, cijfers en 
bijzondere tekens zoals: 


KET () 21 


codes: Een representatiesysteem voor het 
vastleggen van alfanumerieke tekens in 
binaire vorm. 


getalrepresentatie: Een representatiesysteem voor het 
vastleggen van getallen in binaire vorm. 
Elke getalsoort kent een eigen repre- 
sentatiesysteem. 


datatype: Een gegevenscategorie waarmee men in 
een FORTRAN-programma kan werken, 
en waarvoor in de computer intern een 
eigen representatiesysteem bestaat. 
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centrale verwerkings- 
eenheid: 


intern geheugen: 


centrale machine: 


periferie: 


in- en uitvoerapparatuur: 


extern geheugen: 


sequentiële toegankelijk- 
heid: 


directe toegankelijkheid: 


non-destructive read-out: 


destructive read-in: 


Het 'hart' van een computersysteem. 
In de CVE zijn de reken-, beslissings- 
en besturingsfuncties van de computer 
ondergebracht. 


Een snel toegankelijk geheugen dat 
rechtstreeks met de CVE samenwerkt. 


CVE plus het interne geheugen. 


Die delen van een computersysteem die 
niet tot de centrale machine behoren. 


Apparatuur die deel uitmaakt van de 
periferie en gebruikt wordt om gege- 
vens vanuit de 'buitenwereld' aan de 
computer kenbaar te maken, of omge- 
keerd. 


Een verzameling aanvullende geheugen- 
apparatuur die deel uitmaakt van de 
periferie. 


Een methode van gegevensbenadering 
waarbij het geheugen vanaf het begin 
doorlopen wordt om een geheugenplaats 
te lokaliseren. 


Een methode van gegevensbenadering 
waarbij een geheugenplaats rechtstreeks 
gelokaliseerd kan worden. 


Het uitlezen van een geheugenlokatie 
waarbij de oorspronkelijke inhoud van 
die lokatie onaangetast blijft. 


Het beschrijven van een geheugenloka- 
tie waarbij de oorspronkelijke inhoud 
verloren gaat. 


3 SF/1: REKENEN EN AFDRUKKEN 


In dit hoofdstuk wordt de basis voor het programmeren in FORTRAN 
gelegd. De stof die behandeld wordt is voldoende om een volledig, 

zij het zeer eenvoudig programma te schrijven. Het hoofdstuk wordt 
afgesloten met een aantal opgaven waarbij gevraagd wordt enkele 
kleine programma's te schrijven. Aanbevolen wordt deze oefenpro- 
gramma's -en ook volgende programma's- niet alleen te schrijven, 
maar zo mogelijk ook daadwerkelijk door een computer te laten 
uitvoeren. 


Daarvoor moeten procedures worden gevolgd die meestal voor ieder 
computertype en/of -installatie verschillend zijn. Voor informatie 
daarover moet dan ook naar andere bronnen (bijvoorbeeld de desbe- 
treffende systeemdocumentatie) worden verwezen. 


Ten behoeve van gebruikers van Prime-installaties in het hoger 
beroepsonderwijs wordt op dit boek een aanvulling uitgegeven, waar- 
in uitgebreide informatie over het verwerken van FORTRAN- 
programma's op deze systemen te vinden is. 


3.1 TEKENS 


Elke taal bestaat uit woorden. Woorden bestaan op hun beurt uit 
symbolen die we tekens (Engels: characters) kunnen noemen. 
Een verzameling tekens noemen we een tekenreeks (Engels: 
character string). Het Nederlandse woord: 


BLOEMKOLEN 


® ‘Aanvulling Cursus FORTRAN 77', Academic Service, Den Haag, 1984. 
ISBN 90 6233 113 0. 
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is een tekenreeks met een lengte van tien tekens. Het bestaat uit 
zeven verschillende tekens (de E, de L en de O komen tweemaal 
voor). In Nederlandse teksten is deze tekenreeks als woord herken- 
baar omdat het voorafgegaan en gevolgd wordt door een spatie. In 
zekere zin is een spatie dus ook een teken, maar dan wel een bijzon- 
der teken (Engels: special character) dat dient om woorden van 
elkaar te scheiden. Ook in programmateksten kunnen spaties essen- 
tieel zijn. In dit boek zullen we daarvoor waar nodig het teken b 
gebruiken (afkorting van 'blank' = spatie). 


In natuurlijke talen zoals het Nederlands kan men met behulp van 
woorden zinnen samenstellen. Het einde van een zin is herkenbaar 
aan een bijzonder teken, te weten de punt (Engels: period), of aan 
een vraag- of uitroepteken. Daarnaast beschikken we ook over ande- 
re leestekens om bepaalde verbanden tussen zinsdelen en zinnen aan 
te geven. Soms zijn die tekens onmisbaar voor een goed begrip van 
de zin, bijvoorbeeld: 


De baas zei de loopjongen is een sufferd. 


Om dubbelzinnigheid te voorkomen moeten we hier minstens een 
komma na 'zei' plaatsen, of komma's na 'baas' en 'loopjongen', 
afhankelijk van wat er bedoeld wordt. 


In programmeertalen is eenduidigheid een eerste vereiste, Kan de 
mens vanuit het zinsverband vaak nog begrijpen wat er bedoeld 
wordt, de computer kan dat in het algemeen niet. Om dubbelzinnig- 
heid in programmateksten te voorkomen worden strakke afspraken 
gemaakt, ook wat betreft de vorm van het programma en de daarin 
gebruikte tekens, Een aantal daarvan laten we nu de revue passeren. 


Zoals een stuk proza in natuurlijke taal opgebouwd wordt uit zinnen, 
zo wordt een programma opgebouwd uit statements. In FORTRAN 
onderscheidt men de ene statement! van de andere, doordat elke 
statement op een nieuwe regel begint. Sommige programmeer- 
talen, waaronder enkele versies of 'dialecten' van FORTRAN, ken- 
nen de puntkomma als scheidingsteken tussen statements. Dit teken 
heeft dan dezelfde functie als de punt in gewoon proza. 


De komma dient in FORTRAN meestal om gelijksoortige elementen, 
bijvoorbeeld in een lijst, van elkaar te scheiden. Haakjes (Engels: 
parentheses, enkelvoud: parenthesis) gebruikt men om aan te geven 
dat verschillende elementen van een statement bij elkaar horen. 


De letters van het alfabet en ook de cijfers worden onder andere door 
de programmeur gebruikt om verschillende grootheden binnen een 
programma te benoemen. Men spreekt hierbij van een symbolische 


1 Zoals vaker met dergelijke leenwoorden. bestaat er geen eenstemmingheid over 
het geslacht van 'statement'. Wij houden het op 'de' statement, maar hebben er 
vrede mee als u in plaats daarvan 'het' statement wilt lezen ..... 
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De letters van het alfabet en ook de cijfers worden onder andere door 
de programmeur gebruikt om verschillende grootheden binnen een 
programma te benoemen. Men spreekt hierbij van een symbolische 
naam (Engels: symbolic name) of identificator. De regels die hier- 
voor gelden worden in het volgende hoofdstuk besproken. 


Letters worden in FORTRAN ook gebruikt voor een aantal vaste ter- 
men of sleutelwoorden (Engels: keywords), zoals READ, WRITE, 
STOP en GO TO. Sleutelwoorden zijn in FORTRAN niet 'gereser- 
veerd', dat wil zeggen men kan ze ook als symbolische naam voor 
eigen doeleinden gebruiken, In zulke gevallen is de FORTRAN- 
compiler in staat uit het zinsverband (of beter gezegd: uit de context 
van de statement) te bepalen wat er bedoeld wordt. De leesbaarheid 
van de programmatekst komt hierdoor echter wel in het gedrang en 
het gebruik van deze mogelijkheid wordt dan ook ontraden. 


Volledigheidshalve geven we in de volgende figuur een overzicht van 
de tekens die in een FORTRAN-programmatekst kunnen voorkomen; 
men spreekt hierbij van een tekenverzameling (Engels: character 
set). Van de bijzondere tekens geven we tevens de Engelse benaming. 


mmm mmm 


letters: ABGDEEGHTITJRKRELMNOPORS. ED 
VWXYZ 


cijfers: be rh 
PAST BEEE Y P aa Cr AREE SERA A EERE S E A S IN deed adden he dd 
bijzondere tekens: blank 
plus 
minus 
asterisk 
slash 
left parenthesis 
right parenthesis 
comma 
decimal point 
$ currency symbol 
(Nederlands: valutateken) 
apostrophe of: single quote 
equals 
: colon! 
eA COTAT INNERE E EE EE EEN OEE Si ATA 2 E RN INNEEMT EE. TT 


eN An E I + 


Fig. 3-1: Tekenverzameling FORTRAN 77. 


lyiet gedefinieerd in SF/k. 
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3.2 GETALLEN 


3.2.1 INTEGER-constanten 


Computers zijn in staat rekenkundige bewerkingen met grote snel- 
heid uit te voeren. De eenvoudigste bewerkingen zijn die met gehele 
getallen, zoals 2, -3, 512, 809 en 46281. Dergelijke getallen noe- 
men we INTEGER-constanten. Een willekeurige reeks cijfers, al 
dan niet voorafgegaan door een plus- of minteken, en zonder deci- 
maalteken wordt door een FORTRAN-ecompiler geaccepteerd als een 
INTEGER-constante, mits daarbij de getalcapaciteit van de desbe- 
treffende computer niet overschreden wordt. De getalcapaciteit is 
afhankelijk van de woordlengte van de computer en varieert dus van 
het ene machinetype tot het andere. Doorgaans bedraagt het aantal 
cijfers waarmee gewerkt kan worden minstens negen. INTEGER- 
constanten zonder teken worden verondersteld positief te zijn. 


3.2.2 REAL-constanten 


Voor zeer grote getallen en voor gebroken getallen moet men 
gebruik maken van zogenaamde REAL-constanten. De interne voor- 
stellingswijze hiervan is wezenlijk anders dan van INTEGER-con- 
stanten. REAL-econstanten zijn voor de compiler herkenbaar aan één 
van de twee volgende notatievormen. 


Basisnotatie (Engels: basic real constant) 


Constanten geschreven in deze vorm worden gekenmerkt door de 
aanwezigheid van een decimaalteken, dit in tegenstelling tot 
INTEGER-constanten. Voor het decimaalteken -ook wel radixteken 
genoemd- wordt de Angelsaksische conventie gebruikt, dus een punt 
in plaats van een komma. Eventuele komma's of punten om duizend- 
tallen aan te geven zijn niet toegestaan. 

Het geheel kan worden voorzien van een plus- of minteken. Constan- 
ten zonder teken worden verondersteld positief te zijn. 


voorbeelden ‚5 - 0.0075 


‚0 
0.0 | identiek 
0. 
12:345 


+12. 345 | identiek 


Exponent of wetenschappelijke notatie (Engels: scientific notation) 
Bij het rekenen met grote getallen zoals: 
635642000 


maakt men in het algemeen wel gebruik van een handzamer notatie, 
bijvoorbeeld: 


0. 635642410° 


Kortom: men schrijft het getal als een produkt van een ander getal, 
waarin uitsluitend significante cijfers voorkomen en een macht van 
10. Men spreekt hierbij van normeren. 


In FORTRAN kan men een soortgelijke notatievorm gebruiken. 
Bovenstaand getal schrijft men dan bijvoorbeeld als: 


0. 635642E9 


Het eerste gedeelte hiervan (het getal 0. 635642) noemt men mantisse, 
het tweede gedeelte (E9) exponent. Het getal na de E geeft aan met 
welke macht van 10 men de mantisse moet vermenigvuldigen om de 
eigenlijke getalwaarde te verkrijgen. 


Formeel kunnen we de exponentnotatie als volgt definiëren: 
[1E lele] 


waarbij : è blokhaken een facultatieve keuze aangeven 


dat wil zeggen de blokhaken maken zelf geen deel 
uit van de notatievorm, maar geven aan dat uit de 
grootheden, door die blokhaken omvat, een keuze 
mag worden gemaakt. 


e accolades een verplichte keuze aangeven 


dat wil zeggen de accolades maken zelf geen deel 
uit van de notatievorm, maar geven aan dat uit de 
grootheden, door die accolades omvat, een keuze 
moet worden gemaakt. 


è p een REAL-constante is, geschreven in basisno- 
tatie (dus een 'basic real') 


è q een INTEGER-constante is 
è c een decimaal cijfer is 
è de mantisse en/of exponent verondersteld wordt 


positief te zijn indien een algebraïsch teken ont- 
breekt. 


De constanten: 25. 1E2 
+25. 1E2 
25. 1E02 
25. 1E+02 
25. 1E+2 


stellen dus alle dezelfde waarde voor, te weten 25. 1x104. Voor de 
interne representatie van deze waarde maakt het dus niet uit welk 
alternatief men kiest. Evenmin maakt het uit of men de exponentno- 
tatie gebruikt of de 'gewone' basisnotatie. Ook de vorm: 


2510.0 
of 
2510. 


zou tot dezelfde interne representatie leiden. Terwille van de duide- 
lijkheid kan men echter beter de vorm 2510. 0 kiezen. 


Andere voorbeelden: 


2.9979E8 = 299790000. 0 
(lichtsnelheid in meters per seconde) 


1.674E-27 = 0. 0000000000000000000000000016 74 
(atomaire massa-eenheid in kilogram) 


Ten aanzien van het aantal cijfers dat men voor de mantisse kan 
gebruiken, kent elke computer beperkingen, hetgeen invloed heeft op 
de precisie waarmee men kan werken. Doorgaans kan men rekenen 
met minstens zeven significante cijfers. Desnoods kan ook gewerkt 
worden met een zogenaamd DOUBLE PRECISION datatype om een 
grotere nauwkeurigheid te bereiken, 


Bij het rekenen met REAL-grootheden dient men dus met een zekere 
onnauwkeurigheid rekening te houden. INTEGER-rekenkunde daaren- 
tegen is altijd exact. 


Ook ten aanzien van de exponentgrootte gelden beperkingen. Over- 
schrijding daarvan in positieve of negatieve zin leidt tot foutsituaties 
die men 'overflow' respectievelijk 'underflow' noemt. Typische 
maximum- en minimumwaarden zijn 1079 en 10-78, INTEGER's 
zijn overigens ook gebonden aan bepaalde maximum- en minimum- 
waarden. 


3.3 TEKENREEKSEN 


We hebben gezien dat computers zowel getallen als tekenreeksen 
kunnen verwerken, Wat getallen betreft hebben we kennis gemaakt 
met twee verschillende vormen: INTEGER en REAL, 


Een tekenreeks kan bestaan uit een willekeurige combinatie van de 
in figuur 3-1 gegeven tekens. Wanneer we bijvoorbeeld de resulta- 
ten van een computerberekening afdrukken, zullen we doorgaans, 
behalve de resultaten zelf, ook verklarende tekst of uitvoeridentifi- 
catie verlangen. In de statement waarmee we de computer de op- 
dracht geven iets af te drukken -een zogenaamde schrijfopdracht- 
geven we dan de verlangde tekenreeks mee, voorafgegaan en gevolgd 
door een apostrof (dus een enkelvoudig aanhalingsteken). Zo'n 
tekenreeks, omvat door apostroffen, noemen we een literaal, of 
-naar de Engelse benaming van tekenreeks- een CHARACTER 
string constante. 


Voorbeelden van literalen zijn: 
"TOM POES', ‘NIEUW SALDO D.D.' 'X =! 
Als de tekenreeks zelf een apostrof bevat, moet dit aangegeven wor- 


den door twee opeenvolgende apostroffen. Dit wordt door de compu- 
ter geinterpreteerd als een enkele apostrof. 


Voorbeelden: 
'M''N NEUS!' wordt afgedrukt als: M'N NEUS! 
'''S-GRAVENHAGE!' i i i 'S-GRAVENHAGE 


Op het gebruik van deze literalen zullen we bij de behandeling van de 
schrijfopdracht nader ingaan. 
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3.4 EXPRESSIES 


Een belangrijk begrip in FORTRAN is de expressie. We zullen dit 
begrip behandelen door eerst enkele voorbeelden te geven, om ver- 
volgens van daaruit tot een meer algemene begripsvorming te komen. 


In de eerste plaats kunnen constanten zoals: 
32, 5, 6, 1E2 en 58. 1E6 


beschouwd worden als expressies. Het doet er daarbij niet toe of ze 
INTEGER dan wel REAL zijn. 


Expressies bestaande uit INTEGER- of REAL-constanten kunnen 
gecombineerd worden tot samengestelde expressies door gebruik te 
maken van rekenkundige tekens (operatoren) voor optellen, aftrek- 
ken, vermenigvuldigen, delen en machtsverheffen. Men spreekt dan 
van een rekenkundige expressie of uitdrukking. Voor optellen en 
aftrekken worden de bekende plus- en mintekens gebruikt. Voor ver- 
menigvuldigen gebruikt men het symbool *. Delen wordt aangegeven 
door het symbool /. 


Voorbeelden: Zra 
5.2E1*7. 8E5 
8:72. 
10 - 15 


In één en dezelfde expressie mogen zowel INTEGER- als REAL- 
grootheden voorkomen. Het resultaat is dan altijd van het type 
REAL. 

Voorbeeld: 2 +3.0E1 heeft de waarde 3.2E1. 

Wanneer één getal gedeeld wordt door een ander, verdient het aanbe- 
veling dat minstens één daarvan REAL ist, In plaats van 13/2 
schrijft men bijvoorbeeld 13/2. 0 om het resultaat 6.5 te krijgen. 


Een wat ingewikkelder rekenkundige expressie is: 


2x5 + 8 = 3x5/2. + 6 


1 Zuiver INTEGER delingen mogen wel voorkomen, maar kunnen bij ondes- 
kundig gebruik tot onverwachte resultaten leiden, bijvoorbeeld 6 in boven- 
staand voorbeeld. Meer hierover in hoofdstuk 4. 


Om dit uit te rekenen moet men weten welke rekenvolgorde in 
FORTRAN gehanteerd wordt. De regel is dat vermenigvuldigen en 
delen eerst plaatsvinden, gevolgd door optellen en aftrekken. Boven- 
dien werkt men in principe van links naar rechts. We maken hierbij 
dus gebruik van prioriteitsregels (Engels: rules of precedence). 


Expressies die tussen haakjes zijn geschreven, en deel uitmaken 
van een grotere expressie, zouden we deelexpressies kunnen noe- 
men. Bij de evaluatie van een expressie krijgen deelexpressies 
altijd voorrang. De rekenvolgorde kan men dus zelf beïnvloeden 
door gebruik te maken van haakjes. Men kan bijvoorbeeld 3 » (5 + 8) 
schrijven in plaats van 3 * 5 + 8 indien de optelling vóór de verme- 
nigvuldiging moet plaatsvinden. 


Machtsverheffen vindt plaats met behulp van de operator x». Vijf tot 
de derde macht, bijvoorbeeld, schrijft men als 5 x» 3, wat dus 
gelijk is aan 5 * 5 x 5. De macht waartoe men verheft behoeft niet 
noodzakelijkerwijs van het type INTEGER te zijn. We kunnen bij- 
voorbeeld 10,0 xx 0.5 schrijven om de vierkantswortel van 10 te 
berekenen. Later zullen we zien dat het efficiënter is hiervoor een 
‘ingebouwde! of standaardfunctie te gebruiken (Engels: intrinsic 
function), Men schrijft dan SQRT(10.0) om hetzelfde resultaat te 
krijgen. Daarbij is SQRT, een afkorting van de Engelse uitdrukking 
voor vierkantswortel (square root), de naam van de desbetreffende 
functie. 


Machtsverheffen heeft een hogere prioriteit dan de andere rekenkun- 
dige operatoren. In de expressie: 


5 +342 
wordt het getal 3 dus eerst gekwadrateerd. Het resultaat van deze 
machtsverheffing (9) wordt dan opgeteld bij 5. De uiteindelijke 


waarde van de expressie is dus 14. 


Wanneer machtsverheffen tweemaal achtereenvolgend voorkomt, 
bijvoorbeeld: 


2 kx 2 xx 3 


dan wordt van rechts naar links geëvalueerd. De waarde van deze 
expressie is dus: 


en niet: (2) = 4 = 64, 
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Terwille van de duidelijkheid is het aan te bevelen haakjes te gebrui- 
ken om aan te geven wat men bedoelt. In dit geval dus: 


2 xx (2 xx 3) of (2 **x 2) xx 3. 


Tenslotte: een rekenkundige operator mag niet direct volgen op een 
andere rekenkundige operator. Men kan dus niet schrijven: 


5/ =3,0 
maar wel: 
5 / (-3.0) of -5 /:3,0 


Merk op dat de twee asterisktekens, die gebruikt worden om machts- 
verheffen aan te duiden, in dit verband als één operator worden 
opgevat. 


3.5 VOORBEELDEN VAN REKENKUNDIGE EXPRESSIES 


De volgende voorbeelden illustreren de rekenregels die in FORTRAN 
gelden. 


12 +16 Waarde is 88 


Er nf Waarde is 47. Merk op dat x vermenigvuldigen bete- 
kent en niet machtsverheffen zoals in sommige 
andere programmeertalen. 


2+10x4 Waarde is 42, Merk op dat vermenigvuldigen 
plaatsvindt vóór optellen. 


(2 + 10) «4 Waarde is 48. De haakjes hebben tot gevolg dat ver- 
menigvuldigen plaatsvindt ná optellen. 


A Deze deling is normaliter niet aan te bevelen, omdat 
noch 1 noch 3 een REAL getal is. Indien men hier- 
mee de waarde éénderde bedoelt, moet men 1.0 / 3 
of 1 / 3.0 coderen. Nog beter is het beide waarden 
REAL te maken, dus 1.0 / 3.0. Dit omdat bij een 
gemengde INTEGER/REAL-deling de computer 
intern, alvorens de deling te kunnen uitvoeren, de 
INTEGER-waarde moet converteren naar REAL, 
hetgeen afbreuk doet aan de efficiëntie van de bereke- 
ning. 


1/58,E0 Waarde is 0. 3333333E0, dus ongeveer éénderde. 
Het resultaat van deze gemengde INTEGER/REAL- 
deling is dus een REAL-waarde, De waarde 
0. 3333333E0 kan ook op andere manieren geschre- 
ven worden, bijvoorbeeld 3. 333333E-1 of 
3. 333333E-01. 


72.0E + 16.0E0 Waarde is 88. 0E0; ook in andere vormen te 
schrijven zoals bijvoorbeeld 8. 8E1 of 
8.80000E + 01. 


(9. 83E0 + 16.82E0) / 2. 935E0 
Deze expressie komt overeen met de breuk: 


9.83 + 16, 82 
2.935 


De haakjes geven aan dat de deling betrekking heeft 
op de som van 9. 83E0 en 16.82E0, in plaats van op 
de waarde 16,82E0 zelf, 


3.6 AFDRUKKEN 


De bedoeling van deze eerste SF/k subset is voldoende taalkundig 
materiaal aan te dragen om weliswaar eenvoudige maar toch volle- 
dige FORTRAN-programma's te kunnen samenstellen. Bij de taal- 
elementen van SF/1 is daarom ook een afdrukstatement opgenomen: 
de PRINT-statement. 


Vorm van de afdrukstatement 


De statement die we voor het afdrukken zullen gebruiken kan er 
bijvoorbeeld als volgt uitzien: 


PRINT *, 3, 5.1E1, 'PIET' 


In deze statement wordt het sleutelwoord PRINT gevolgd door een aste- 
riskteken en een komma. Na de komma staat een lijst van af te druk- 
ken grootheden. De desbetreffende lijst noemt men een uitvoerlijst. 
Het asteriskteken informeert de vertaler dat de vorm of opmaak 
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(Engels: format) van de af te drukken gegevens bepaald wordt door de 
aard van die gegevens zelf. Dit staat bekend als lijstbestuurde 
opmaak (Engels: list-directed format). 


Opmaak van de uitvoer 


De uitvoer die een lijstbestuurde PRINT produceert wordt in opeen- 
volgende velden over de regelbreedte geplaatst. De velden onder- 
ling worden gescheiden door een spatie. De afdrukvolgorde wordt 
bepaald door de volgorde van de datawaarden in de uitvoerlijst. 


Elk veld bestaat uit een aantal opeenvolgende posities, waarin één 
datawaarde wordt afgedrukt, bijvoorbeeld een getal of een stuk tekst. 
De lengte van zo'n veld -dat wil zeggen het aantal afdrukposities 
waaruit het veld bestaat- hangt af van het af te drukken gegeven en 
van de compiler. Voor het afdrukken van INTEGER-datawaarden 

is een vaste veldlengte van 12 posities gangbaar en voor REAL- 
waarden een vaste veldlengte van 16 posities. Voor tekst worden 

in principe evenveel posities gebruikt als de af te drukken tekst 
-spaties inbegrepen- lang is. De maximale regellengte varieert 
van systeem tot systeem en ook wel binnen een systeem. 


a, INTEGER-waarden 


INTEGER-waarden worden afgedrukt als geheel getal, zonodig 
rechts in het veld aangesloten (Engels: right-justified); overblij- 
vende posities worden als het ware met spaties opgevuld. Bij- 
voorbeeld: 


PRINT *, 3 


levert: bbbbbbbbbbb3. Merk op dat plustekens niet worden afge- 
drukt. 


b. REAL-waarden 


REAL-waarden worden afgedrukt in standaard exponentvorm. 
Bijvoorbeeld: 


PRINT x, 0. 025 


levert: bb0. 2500000E-01. 


C. 
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Expressies 


De af te drukken numerieke waarden behoeven niet per sé constan- 
ten te zijn -men kan even goed uitgebreide expressies in de uit- 
voerlijst opnemen. Van zo'n expressie wordt dan de door de com- 
puter uitgerekende waarde afgedrukt. Afhankelijk van het datatype 
van het resultaat, vindt het afdrukken volgens REAL- dan wel 
INTEGER-specificaties plaats. De statement 


PRINT » 2+3, 4/ 2,0 


bijvoorbeeld, zou kunnen resulteren in achtereenvolgens: 

- een veld van 12 posities waarin rechts aangesloten het getal 5 
(zonder algebraïsch teken) 

- een scheidingsspatie 

- een veld van 16 posities waarin rechts aangesloten de waarde 
0. 2000000Ebo1L, 


Bij het afdrukken van expressies mag men de uitvoerlijst bij som- 
mige computers niet met een openingshaakje beginnen. De vorm: 


PRINT +, (2 +3) 5 

is dus verboden. Met behulp van de volgende kunstgreep: 
PRINT +, + (2 +3) «5 

kan men dit probleem oplossen. 


Literalen 


Literalen worden zonder apostroffen afgedrukt in velden die even 
lang zijn als de desbetreffende tekenreeks, spaties meegerekend. 
De statement: | 


PRINT «, '2b+b3b=', 2 +3 


levert bijvoorbeeld: 2b+3b=bbbbbbbbbbbb5. Merk op dat een 
spatie het literaalveld en het INTEGER-veld scheidt en dat de 
apostroffen van de literaal niet worden afgedrukt. 


Als twee PRINT-statements na elkaar worden uitgevoerd, komt 
het resultaat van de tweede PRINT op een nieuwe regel terecht. 
Men kan dus regels overslaan door als het ware een spatie af te 
drukken, bijvoorbeeld: 


PRINT x, 'b' 


1 In plaats van de vorm 0.2000000Eb01 kunnen sommige computers deze 


waarde ook als een gewone decimale breuk afdrukken, bijv. 2.000000. 
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De literaal 'b' kan men uiteraard ook in een uitvoerlijst opnemen 
om binnen een regel posities over te slaan. 


3.7 DE STOP- EN END-STATEMENTS 


Om nu een volledig programma te kunnen schrijven, hebben we nog 
twee eenvoudige statements nodig, namelijk de STOP- en de END- 
statements. Ze bestaan slechts uit het sleutelwoord zelf, dus: 


STOP 
END 


De END-statement geeft het fysieke einde van het programma aan. 
Het dient om de plaats aan te geven waar het compilatieproces van 
het programma, waarin het is opgenomen, moet eindigen. Een 
FORTRAN-programma moet per definitie met een END-statement 
eindigen. De statement functioneert in principe dus als signaall, 


De STOP-statement wordt gebruikt om het 'logische' einde van het 
programma aan te geven. Bij uitvoering van deze statement stopt de 
computer met de executie van het programma. In principe mag de 
STOP-statement op een willekeurige plaats in het programma 
staan. Er kan meer dan één STOP-statement in een programma 
voorkomen. 


Het kortste SF/k-programma dat men kan schrijven bestaat uit de 
hiervoor besproken STOP- en END-statements, voorafgegaan door 
een derde statement. 


Voorbeeld: 


PRINT r BN eq 
STOP 
END 


1 
In de norm X3. 9-1978 heeft de 'END' een andere status dan in de norm 
X3.9-1966. De 'END' is in eerstgenoemde norm een ‘echte! statement 
(geen 'END-line') en is bovendien 'executable'. Strikt genomen is een 


afsluitende STOP-statement in een FORTRAN 77 programma dus niet 
nodig. 
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3.8 VORM VAN FORTRAN-PROGRAMMA’S 


ledere regel van een FORTRAN-programma bestaat uit vier vel- 
den: 


- het opdrachtveld (posities 7 tot en met 72) 

- het continuatieveld (positie 6) 

- het regelidentificatieveld (posities 73 tot en met 80) 
- het labelveld (posities 1 tot en met 5). 


Het labelveld laten we voorlopig buiten beschouwing. 


Het opdrachtveld 


In het opdrachtveld codeert men de eigenlijke FORTRAN-opdracht. 
Daarbij kan men een willekeurig aantal posities overslaan vóór 
het eerste (sleutel) woord en tussen of in andere delen van de 
opdracht. Een doordacht gebruik hiervan kan de leesbaarheid van 
het programma ten goede komen. 


Het continuatieveld 


In principe wordt voor elke statement een nieuwe regel gebruikt. 
Komt men ruimte te kort, dan kan de statement op een of meer 
volgende regels vervolgd worden, mits in kolom 6 van die vervolg- 
regel(s) een zogenaamd continuatieteken wordt gebruikt. Het conti- 
nuatieteken kan elk willekeurig teken van de FORTRAN-tekenverza- 
meling zijn, behalve een nul of (uiteraard) een spatie. Er kunnen 
per statement maximaal 19 vervolgregels zijn. Een FORTRAN- 
statement kan zich dus fysiek uitstrekken over maximaal 20 regels. 
Daarbij behoeft het continuatieteken niet steeds hetzelfde teken te 
zijn. 


Het regelidentificatieveld 


Het regelidentificatieveld -niet te verwarren met het labelveld- 
kan men gebruiken om regels voor eigen gemak te nummeren of op 
andere wijze te identificeren. De desbetreffende regelposities 
worden niet 'bekeken' door de compiler. Men is dus vrij dit veld 
al dan niet te gebruiken en naar eigen goeddunken in te richten. 
Maakt men wel gebruik van een regelnummering, dan verdient het 
aanbeveling zó te nummeren -bijvoorbeeld met veelvouden van 10- 
dat in een later stadium regels tussengevoegd kunnen worden, zon- 
der de nummering te verstoren. 
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3.9 EEN VOORBEELDPROGRAMMA 


Het volgende programma illustreert het gebruik van de PRINT- 
statement. Zo'n afdruk noemen we overigens een listing. 


PRINT ti-R G 4 G’ 
PRINT #;, ° I A OAR S 
PRINT #*, <. (BGZ EFO 
STOP 
END 


Executie van het programma levert de volgende uitvoer: 


Het zal duidelijk zijn dat de uitvoer regel voor regel overeenkomt 
met de drie PRINT-statements in het FORTRAN-programma. 


3.10 SAMENVATTING 


In dit hoofdstuk is het schrijven van eenvoudige programma's behan- 
deld, uitgaande van SF/1 -een beperkte subset van FORTRAN, De 


volgende kernbegrippen kwamen daarbij aan de orde. 


teken: KOR RAR DC ., Zo 
BON Dl 2. 9 


of een bijzonder teken: +-*/()=., 


> : $ en spatie 


Deze (alfanumerieke) tekens vormen 
samen de FORTRAN-tekenverzameling 


INTEGER-constante: Een geheel getal, zoals 78 en 293, 
eventueel voorzien van een plus- of 


minteken. Komma's of punten als deci- 
maalteken of ter aanduiding van dui- 


zendtallen zijn niet toegestaan. 


REA L-constante: Een gebroken getal of een geheel getal, 
gecodeerd in basisnotatie (bijvoorbeeld 
3.44159 of 5.0) of in exponentnotatie 


(bijvoorbeeld 3.14159E0 of 5E0). ` 


literaal: 


rekenkundige expressie: 


PRINT-statement 


veld: 


END-statement: 


STOP-statement: 
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Een reeks willekeurige tekens, vooraf- 
gegaan en gevolgd door een apostrof, 


Bestaat uit een enkel getal of een aan- 
tal getallen gecombineerd met reken- 
kundige operatoren. Deelexpressies 
worden het eerst geëvalueerd. Vervol- 
gens vindt machtsverheffen plaats, 
waarbij de onderlinge volgorde van 
rechts naar links is, Daarna vindt van 
links naar rechts vermenigvuldigen en 
delen plaats en tenslotte, in dezelfde 
richting, optellen en aftrekken. 


Een statement van de vorm: 
PRINT *, uitvoerlijst 


De elementen van de uitvoerlijst moe- 
ten rekenkundige expressies of litera- 
len zijn. Elke PRINT-statement heeft 
het afdrukken van een nieuwe regel tot 
gevolg. De asterisk die volgt op het 
sleutelwoord PRINT geeft aan dat de 
wijze van afdrukken bepaald wordt door 
de aard van de af te drukken gegevens, 
Men noemt dit lijstbestuurde opmaak. 


De lijstbestuurde PRINT-statement 
heeft veldsgewijs afdrukken over de. 
regelbreedte tot gevolg. De grootte 
van de velden is afhankelijk van de af 
te drukken gegevens, en kan variëren 
van de ene compiler tot de andere, 
Typische veldlengten zijn 12 posities 
voor INTEGER's en 16 posities voor 
REAL's, Voor literalen is de veldleng- 
te gelijk aan het aantal tekens waaruit 
die constante bestaat. Velden worden 
onderling gescheiden door een spatie. 


De laatste statement van een FORTRAN- 
programma. De END dient voor de 
beëindiging van het compilatieproces. 


Dient voor de beëindiging van het exe- 
cutieproces van een lopend programma. 
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3.11 OPGAVEN 


1. Welke uitvoer drukt de computer af ten gevolge van het onder- 
staande programma? 


PRINT #, ‘% *’ 
PRINT #, ‘st te” 
PRINT &r + # #7 
PRINT &#&, ‘%# #’ 
STOP 
END 


Wijzig de volgorde van de statements zodanig dat een andere 
letter wordt afgedrukt. 


2. Gegeven het volgende programma: 


PRINT *#, ’H H A be r 

PRINT #, ‘H H AA L À 

PRINT #, ‘HHHHH AAAAA L f j 
PRINT #, ‘H H A AL r 

PRINT #,; ‘H H A A LLLLL’ 

STOP 

END 


a. Wat drukt de computer ten gevolge hiervan af? 
b. Welke statements hebben geen afdrukken tot gevolg? 


3. Schrijf programma's om onderstaande figuren af te drukken. 


dà. SEESEE You You PEAPEAPEA 
SEE SEE YOU You PEA PEA 


SEE You You PEA PEA 
SEE You You PEA PEA 
SEE You You PEAPEAPEA 
SEE You You PEA 
SEE You You PEA 


SEE SEE YOU You PEA 
SEESEE YOUYOUYou PEA 


Dop VIERKANT 
DR M I N 
DRI AA E A 
DRIE I N R K 
DRIEH DIAMAND K R Y D 
DRIEHO I N A E PYRAMIDE 
DRIEHOE A A N I 
DRIEHOEK M T y 


NAKREI 
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C. ET 
RER PLUS 
A > PLUS 
TICTACTOE Z G Z G PLUSPLUSPLUS 
A A ECA I A PLUSPLUSPLUS 
4 > GZ GZ PLUS 
TICTACTOE PLUS 
0 o0 
E E 
d. H TRAP CH EC KE RS 
oP T CH EC KE RS 
S R CH EC KE RS 
a E CH EC KE RS 
OT E CH EC KE RS 
c TRAP CH EC KE RS 
H T CH EC KE RS 
R CH EC KE RS 
E 
E 


Wat wordt er afgedrukt ten gevolge van de onderstaande 
PRINT-statements: 

a. PRINT #, 2, ‘PLUS’, 3, 'IS’, 2 + 3 

b. PRINT #, ‘23424 + 19872 + 36218 = ’, 23424 + 19872 + 36218 
C. PRINT #, ‘2 FORMULES: ’, 2 +3 #4 5, +(2 + 3) #5 

d. PRINT #, ‘AFTREKKEN ’, 20 - 10 - 5, 20 - (10 - 5) 


Schrijf statements om het volgende te berekenen en af te druk- 
ken. 

a, de som van 52181 en 10032 

b. het verschil van 9213 en 7918 

c. de som van 9213, 487, 921, 2013 en 514 

d. het produkt van 21 en de som van 816, 5 en 203 

e. de som van 343 en 916, vermenigvuldigd met 82 

f. 3.14159 (pi), vermenigvuldigd met 8. 94 gedeeld door 2 

g. 3.14159 vermenigvuldigd met het kwadraat van 8. 94 


Schrijf programma's om onderstaande berekeningen uit te voe- 

ren. Druk de resultaten af, en zorg daarbij voor verklarende 

tekst. 

a. De oppervlakte van een driehoek waarvan de basis 10.5 cm 
en de hoogtelijn 8. 7 cm is. 

b. De inhoud van een cilinder waarvan de omtrek 9.2 cm en de 
hoogte 5.3 cm is. 

c. De afstand tussen twee in een vlak liggende punten waarvan de 
coördinaten (3, 2) en (5, 8) zijn. 

d. De waarde van de polynoom 


yix adis 


voor x = 1, 2 en 3. 


4 SF/2: VARIABELEN EN 
TOEKENNINGEN 


In deze subset zijn taalelementen verwerkt ten behoeve van: 


- het invoeren in de computer van numerieke gegevens (lezen) 
- het rekenen met de ingelezen gegevens 
- het afdrukken van de berekeningsresultaten. 


Deze onderwerpen vormen dan ook de hoofdschotel van dit hoofdstuk, 
Daarnaast wordt aandacht besteed aan de begrijpelijkheid van pro- 
gramma's, onder andere door een zorgvuldige keuze van identifica- 
toren, en door verklarende tekst (commentaar) die men zelf aan het 
programma kan toevoegen. Het belangrijkste begrip van deze subset 
is echter de variabele. 


4.1 VARIABELEN 


We hebben gezien dat computers over een (intern) geheugen beschik- 
ken waarin ze gegevens kunnen opslaan, De plaats van de gegevens 
in het geheugen wordt bepaald door het adres -een nummer waarmee 
eenduidig naar een bepaalde geheugenlokatie verwezen kan worden. 

In hogere-orde talen zoals FORTRAN wordt echter niet rechtstreeks 
gebruik gemaakt van adressen. In plaats daarvan gebruikt men 
namen of identificatoren. 


Identificatoren 


Een identificator is een letter van het alfabet, eventueel gevolg door 
maximaal vijf letters en/of cijfers. Een identificator kan dus maxi- 
maal zes tekens lang zijn. Geldige identificatoren zijn bijvoorbeeld 
I, XMASSA, KOSTPR, SOM1, PIETJE en X1AB. Niet geldig zijn 
bijvoorbeeld KLAASJE, F(X) en 1XAB. Identificatoren worden door 
de programmeur zelf gekozen. 
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Het begrip variabele 


Hoewel een identificator ook voor andere doeleinden kan worden 
gebruikt, bedoelen we daar voorlopig een geheugenlokatie mee, In 
zo'n geheugenlokatie kan een waarde worden opgeborgen. De interne 
representatie van die waarde wordt bepaald door het desbetreffende 
datatype, bijvoorbeeld INTEGER of REAL. Aan iedere beschikbare 
geheugenlokatie wordt voor de duur van het programma één bepaald 
datatype verbonden. Een INTEGER-geheugenlokatie, bijvoorbeeld, 
kan allerlei mogelijke INTEGER-waarden bevatten. De inhoud van 
de geheugenlokatie is dus variabel. We kunnen het begrip variabele 
nu definiëren als een geheugenlokatie waarin een min of meer wille- 
keurige waarde, afhankelijk van een bepaald datatype, kan worden 
opgeslagen en waarnaar verwezen kan worden met een identificator. 
Zeggen we bijvoorbeeld dat een INTE GER-variabele JAN de waarde 
256 heeft, dan bedoelen we daarmee dat een geheugenlokatie die 
voor de programmeur als JAN bekend staat, een bitpatroon bevat 
dat, opgevat volgens het datatype INTEGER, de getalwaarde 256 
voorstelt. 


4.2 DECLARATIES 


Het verbinden van een bepaald datatype aan een variabele vindt in het 
begin van een programma plaats door middel van een speciale 
opdracht: de declaratie- of specificatiestatement. Om JAN bijvoor- 
beeld als INTEGER-variabele te declareren schrijven we: 


INTEGER JAN 


De declaratie bestaat uit een sleutelwoord -het datatype- gevolgd 
door de desbetreffende identificator (en). 


Met zo'n declaratie wordt uitsluitend geheugenruimte gereserveerd. 
Er is daarmee nog niets over de inhoud van de desbetreffende 
geheugenlokatie gezegd, behalve dat die van een bepaald datatype is. 
Men kan dit vergelijken met het van te voren boeken van hotelacco- 
modatie: de ruimte is op naam gereserveerd en beschikbaar op het 
moment dat het nodig is. De declaratie wordt door de compiler bij- 
gehouden in een tabel, die voor iedere identificator het bijbehorende 
adres aangeeft. Tijdens compilatie worden de identificatoren door 
deze adressen vervangen. De adrestabel wordt bij iedere declaratie 
bijgewerkt. 


We gaan terug naar de declaratievorm. REAL-declaraties kunnen 
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op dezelfde wijze plaatsvinden als INTEGER-declaraties, bijvoor- 
beeld: 


REAL SOM 


Hiermee wordt de identificator SOM gedeclareerd als een REAL- 
variabele, Voor het declareren van meerdere identificatoren van 
hetzelfde datatype kan men de declaratiestatement eenvoudig uitbrei- 
den, bijvoorbeeld: 


INTEGER JAN, CYFER, AANTAL 


Bij de keuze van identificatoren is het overigens aan te bevelen 
rekening te houden met de functie van de bijbehorende variabele in 
het programma, Gebruikt men een variabele om een aantal goede- 
ren bij te houden, dan zal de identificator AANTAL duidelijker zijn 
dan bijvoorbeeld A of N. Ook dient het gebruik van FORTRAN- 
sleutelwoorden als identificator vermeden te worden. Een variabele 
met de naam REAL, en een bijbehorende declaratie zoals: 


INTEGER REAL 
of: REAL REAL 


is weliswaar niet verboden, maar nodigt wel uit tot problemen. 


4.3 UITVOERBARE EN NIET-UIT VOERBARE STATEMENTS 


Statements kan men globaal indelen in twee categorieën: 


- uitvoerbare statements (Engels: executable) 
- niet-uitvoerbare statements (Engels: non-executable). 


De juist behandelde declaratiestatement is een voorbeeld van een 
niet-uitvoerbare statement. Hij dient om de compiler tijdens het 
vertaalproces aanwijzingen te geven, maar wordt zelf niet in con- 
crete machine-instructies vertaald. In die zin valt er tijdens het 
executieproces als gevolg van zo'n statement niets uit te voeren. De 
statement noemt men daarom 'niet-uitvoerbaar', 


Uitvoerbare statements resulteren daarentegen wel in concrete 
machine-instructies. Ze hebben dan ook tijdens het executieproces 
een bepaalde actie tot gevolg. De bij SF/1 behandelde PRINT -state- 
ment is daarvan een voorbeeld. SF/2 kent twee uitvoerbare state- 
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ments: de READ-statement en de toekenningsstatement. 


4.4 DE TOEKENNINGSSTATEMENT 


De toekenningsstatement (Engels: assignment statement) kent geen 
sleutelwoorden, maar heeft niettemin een zeer strakke vorm. Die 
vorm is: 


identificator = expressie 


waarin de identificator een variabele voorstelt die van te voren als 
INTEGER of REAL gedeclareerd moet zijnt. Rechts van het gelijk- 
teken -zoals we straks zullen zien is dit eigenlijk een toekennings- 
teken- staat een expressie. Tot nutoe hebben we slechts expres- 
sies beschouwd waarin INTEGER en/of REAL constanten voorkwa- 
men. Expressies kunnen echter ook INTEGER- of REAL-variabelen 
bevatten, 


Voorbeelden: SOM-+1 
TOTAAL/1. 23E2 
SOM-GETAL 


Het toekenningsmechanisme 


Om de werking van een toekenningsstatement te illustreren, gaan we 
uit van een INTEGER-constante 5 als expressie: 


LEEF = 5 
Deze toekenningsstatement resulteert in de opslag van de waarde 5 
in de geheugenlokatie LEEF. Met LEEF bedoelen we bijvoorbeeld 
een leeftijd in jaren. Is deze identificator als volgt gedeclareerd: 


INTEGER LEEF 


dan wordt het getal 5 als een INTEGER-waarde opgeslagen. De 
statement: 


PRINT x, LEEF 


ie Dat wil zeggen: in het kader van SF/2. In principe mag de identificator 
ook als een variabele van een ander datatype gedeclareerd zijn. 
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zou dan als uitvoer bbbbbbbbbbb5 leveren. Als LEEF gedeclareerd 
was als REAL zou de uitvoer 0. 5000000E 01 zijn of bijvoorbeeld 
9.000 000 (afhankelijk van de compiler. 


Uitgebreidere expressies 


Niets belet ons ook uitgebreidere expressies in het expressiedeel van 
een toekenningsstatement te gebruiken. Een voorbeeld: 


LEEF = 1984 - 1966 


Hier wordt een geboortedatum van een bepaald jaartal afgetrokken om 
de leeftijd in dat jaar te berekenen. De variabele LEEF krijgt de 
waarde 18. Hetzelfde resultaat levert de constructie: 


GEB = 1966 
JAAR = 1984 
LEEF = JAAR - GEB 


waarbij GEB het geboortejaar, en JAAR het gewenste jaartal is. 
Uiteraard moeten de desbetreffende variabelen wel gedeclareerd wor- 
den, bijvoorbeeld door de statement: 


INTEGER LEEF, GEB, JAAR 


Een variabele kan tijdens het verloop van een programma achtereen- 
volgens verschillende waarden krijgen. 


Voorbeeld: GEB = 1966 
JAAR = 1984 
LEEF = JAAR - GEB 
PRINT *, LEEF 
GEB = 1961 
LEEF = JAAR - GEB 


PRINT x, LEEF 


Het gelijkteken 


Het gelijkteken geeft de toekenningsstatement de misleidende vorm 
van een algebraïsche vergelijking. Dat deze begrippen niets met 
elkaar te maken hebben, zal inmiddels duidelijk zijn. We kunnen dit 
nog onderstrepen met het voorbeeld: 


AANTAL = AANTAL +1 
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De waarde die AANTAL bij het begin van de statementuitvoering 
heeft wordt hier met 1 verhoogd. Het resultaat van die ophoging 
wordt vervolgens opgeborgen in dezelfde variabele AANTAL, waar- 
bij de oorspronkelijke waarde overschreven wordt (destructive 
read-in, zie hoofdstuk 2). 


In sommige programmeertalen probeert men misverstanden te 
voorkomen door een ander toekenningssymbool te gebruiken, bij- 
voorbeeld een naar links gerichte pijl, of het symbool ':=". 


4.5 TOESTANDSVERANDERINGEN 


We hebben gezien dat een variabele tijdens de uitvoering van een 
programma verschillende waarden kan aannemen. Heeft de varia- 
bele LEEF bijvoorbeeld eerst de waarde 0, dan heeft de statement: 


LEEF = 1984 - 1966 


tot gevolg dat de waarde van LEEF wordt veranderd in 18. Er treedt 
dus een toestandsverandering op. We kunnen dit als volgt noteren: 


(LEEF: 0} LEEF = 1984 - 1966 (LEEF: 18} 


Vooral bij het leren programmeren, maar ook bij het opsporen van 
programmafouten (debugging) kan het nuttig zijn deze toestandsver- 
anderingen -en dus het verloop van het executieproces- zelf na te 
gaan. We noemen dit ook wel tracing (Engels: to trace = nasporen, 
volgen). 


Een voorbeeld 


We illustreren het 'tracen' aan de hand van het volgende programma. 
Links (vooraan) noteren we voor referentiedoeleinden de volgnum- 
mers van de statements. De meeste compilers genereren overigens 
zelf dergelijke volgnummers -meestal internal statement numbers 
genoemd- om naar eventuele foutieve programmaregels te kunnen 
verwijzen. 


1 INTEGER X, Y,Z 

2 XxX =5 

3 Y=7 

et ER Sd, GSR + Y 

DR: $) X=X+5 

6 AX: 10, Ee De Xx =Z 

T = X: T7, LES Y =Z : 

8 (X: 35 Fri 2:12} X=X+Y+Z (Xi 38; Ye 12, 77-12} 
9 {Y: 13, £: 123 Ter: *Z {Y: 144, Z: 12} 

10 {X: 36, Y: 144, Z: 12} Z = (X+Y) / 12.0 (X: 36; Y; 144, Z: 15} 
11 {X: 36} X.=X / 5.0 (XxX: 7} 

12 PRINT # X, Y, Z 

13 STOP 

14 END 


Merk op dat de declaratie: 
INTEGER X, Y, Z 


geen waardebepaling tot gevolg heeft -er wordt slechts ruimte 
gereserveerd door een aantal INTEGER-variabelen. De volgende 
vier regels spreken voor zichzelf. 


In regel 10 wordt gedeeld door een REAL-waarde (12.0), omdat een 
zuivere INTEGER-deling gevaarlijk kan zijn -een eventuele rest 
wordt bij de deling namelijk buiten beschouwing gelaten. In dit geval 
levert de deling een geheel getal op (15) en zou er geen sprake zijn 
geweest van afkapping. 


Een soortgelijk geval doet zich voor in regel 11. Hier levert de 
deling een gebroken getal op (7. 2) waarbij dankzij de REAL-waarde 
in de noemer het restdeel (0.2) gehandhaafd wordt. Door de toeken- 
ning aan de INTEGER-variabele X wordt dit restdeel echter alsnog 
'afgekapt'. X krijgt dus de INTEGER-waarde 7. Afkappen (Engels: 
truncation) kan men in zulke gevallen overigens voorkomen door 
toekenning aan een REAL-variabele. 


De uitvoeropdracht in regel 12: 
PRINT +» X; Y, Z 


verschilt van de uitvoeropdrachten in SF/1 door de aanwezigheid 
van variabelen in de uitvoerlijst. Daarbij herkent de compiler de X, 
Y en Z als variabelen in plaats van literalen door de afwezigheid 
van apostroffen. Evenmin is verwarring tussen getallen en identifi- 
catoren mogelijk, omdat identificatoren niet met een cijfer mogen 
beginnen. Hieruit blijkt het nut van dergelijke regels. 


52 


Afronding bij INTEGER-toekenningen 


Uit dit voorbeeld bleek dat bij het toekennen van een gebroken getal 
aan een INTEGER-variabele afkapping plaatsvindt. Hoe gaat men nu 
te werk als men geen afkapping, maar afronding tot het dichtstbij- 
zijnde gehele getal wenst? Dit probleem is eenvoudig op te lossen 
door 0.5 bij de toe te kennen waarde op te tellen. Is het rest- of 
breukdeel van de oorspronkelijke waarde groter dan of gelijk aan 
0.5, dan wordt daarmee het quotiëntdeel (het gehele deel van het 
getal) met 1 verhoogd. Het resultaat is dan de gewenste afgeronde 
waarde als quotiënt, zodat afkapping van het restdeel zonder 
bezwaar kan plaatsvinden. Is het restdeel van de oorspronkelijke 
waarde kleiner dan 0.5, dan wordt door de optelling van 0.5 het 
quotiënt niet beinvloed. De oorspronkelijke waarde wordt dan als 
het ware naar beneden afgerond. 


Stel bijvoorbeeld dat KOST de prijs in centen is van een tweekilo- 
grampak waspoeder. De prijs per kilo, afgerond tot de dichtstbij- 
zijnde cent, is dan te berekenen met de statement: 


KGKOST = KOST / 2.0 + 0,5 


waarbij zowel KOST als KGKOST als INTEGER-variabelen gedecla- 
reerd moeten zijn. Reken dit eventueel zelf na voor een prijs van 
bijvoorbeeld f 8.95 per pak. 


4.6 INVOER VAN GEGEVENS 


We hebben gezien dat een variabele door middel van een toekennings- 
statement een waarde kan krijgen. Waardetoekenning kan echter ook 
door lezen plaatsvinden. Men spreekt dan ook wel van programma- 
invoer. Daarbij kan de desbetreffende invoerwaarde bijvoorbeeld 
rechtstreeks vanaf een terminal-toetsenbord, tijdens programma- 
executie, aan de computer worden aangeboden. Dit kan al dan niet 
gepaard gaan met een door het programma gegenereerde prompt 

op het scherm van de terminal, dat wil zeggen een tekst waarbij de 
gebruiker verzocht wordt een waarde in te voeren. Zo'n prompt is 
op zijn beurt weer een stukje uitvoer van het programma. We noe- 
men deze wijze van gegevensinvoer interactief. 


Invoergegevens kunnen echter ook in een reeds aanwezig bestand 
(Engels: file) in het achtergrondgeheugen van de computer zijn onder- 
gebracht. We kunnen dit vergelijken met een kaartenbak, waarbij op 
iedere kaart een bij elkaar behorende verzameling gegevens staat, 
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bijvoorbeeld naam, adres, woonplaats, geboortedatum en burgerlij- 
ke staat van de inwoners van een bepaalde gemeente. Zo'n kaart 
vormt computertechnisch gesproken een record van het bestand. 


Dergelijke invoer- of gegevensbestanden kunnen met behulp van een 
editor (zie par. 2. 7) worden opgebouwd, maar kunnen ontstaan als 
‘eindprodukt! van een gegevensverwerkingsproces. 


In plaats van een record kunnen we ook spreken van een dataregel. 
Deze term dekt ook de interactieve vorm van gegevensinvoer. Daar- 
bij doet zich namelijk het probleem voor dat de computer een inge- 
toetste regel ook als record van een (invoer)bestand beschouwt, ter- 
wijl er voor ons gevoel eigenlijk nauwelijks sprake is van een 
bestand. De gegevens worden namelijk 'ad hoc', tijdens de program- 
ma-uitvoering, door de gebruiker ingetoetst, terwijl we bij een 
invoerbestand eerder denken aan een van te voren vaststaande ver- 
zameling gegevens. 


In dit boek gebruiken we de termen dataregel, record, invoer- en 
gegevensbestand door elkaar. Daarbij houdt het gebruik van de 
term dataregel niet in dat er perse interactief moet worden inge- 
voerd. Omgekeerd sluit het gebruik van de termen record, invoer- 
en gegevensbestand het interactief invoeren van gegevens niet uit. 


De READ-statement 


Om gegevens te kunnen inlezen moeten in het programma één of 
meer leesopdrachten staan. Zo'n opdracht zou er als volgt kunnen 
uitzien: 


READ +, X, Y, Z 


Hierbij worden drie getallen van het invoerbestand 'gelezen' en 
overgebracht naar de geheugenlokaties X, Y en Z. Deze variabelen 
zouden we bestemmingsvariabelen kunnen noemen. De lijst van 
bestemmingsvariabelen noemen we een invoerlijst. Voor zo'n lijst 
gelden dezelfde bepalingen als voor de uitvoerlijst bij de PRINT- 
statement, op één restrictie na: de invoerlijst mag geen (samenge 
stelde) expressies of constanten bevatten. Dergelijke grootheden ver- 
tegenwoordigen immers geen geheugenbestemming maar uitsluitend 
een numerieke waarde. 
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De plaats van de gegevens in een dataregel is niet aan bepaalde 
posities gebonden. Wel moeten meerdere gegevens op één regel 
van elkaar gescheiden worden door komma's of minstens één blanco 
positie. Bovendien dient bij het opbouwen van het invoerbestand 
rekening te worden gehouden met het feit dat bij iedere uitvoering 
van een READ-statement een volgende bestandsregel wordt gelezen. 
Zonodig worden bij de executie van één READ-statement meerdere 
bestandsregels gebruikt. 


We geven nu een voorbeeld van een volledig programma waarin 
gegevens zowel ingelezen als afgedrukt worden. 


programmatekst: 


INTEGER X» Y: Z 
READ #; Xr Y 
Zi HEN 

PRINT #; Z: Yr X 
STOP 

END 


invoer: 


< haat, 


De uitvoer van dit programma zou er als volgt uitzien: 


12 A S 


Bij uitvoering van de READ-statement wordt het eerste invoergege- 
ven (5) in verband gebracht met de variabele X, en in de bijbeho- 
rende geheugenlokatie opgeborgen. Evenzo wordt de waarde 7 over- 
gebracht naar de geheugenlokatie aangegeven door Y. 


Bij het opgeven van REAL-waarden in exponentvorm behoeft men 
noch voor de mantisse, noch voor de exponent meer cijfers in te 
toetsen dan strikt noodzakelijk is. Er kan dus worden volstaan met 
2. 0E0 of zelfs 2E0 in plaats van bijvoorbeeld 0. 2000000E+01. 
REAL-datawaarden kunnen ook zonder bezwaar volgens basisnotatie 
worden ingetoetst, bijvoorbeeld: 


35.8 3. 14159 0.025 2.0 


4.7 CONVERSIE TUSSEN INTEGER- EN REALDATATYPEN 


Zowel bij het inlezen als bij het toekennen kunnen automatisch con- 
versies van REAL naar INTEGER, of omgekeerd, voorkomen. Bij 
het inlezen wordt de aard van de conversie bepaald door de over- 
eenkomstige variabele in de invoerlijst van de READ-statement. 


Voorbeeld: 
INTEGER X; Y 
REAL Z 

READ #, X, Y; Z 
PRINT #, X: Y, Z 
READ #, X, Y, Z 
PRINT #; X, Y, Z 
STOP 

END 

invoer: 

22 36 25 
2 181 5.0E4 


Merk op dat beide series X-Y-Z-waarden als afzonderlijke regels 

worden ingevoerd, dit in verband met het feit dat bij de uitvoering 
van verschillende READ-statements steeds een nieuwe regel wordt 
gelezen. 


De uitvoer van het programma is: 


22 36 25.00000 
2 181 50000.00 


Het eerste invoergegeven voor Z -een REAL-variabele- is in 
INTEGER-vorm ingetoetst (25). Bij het inlezen daarvan vindt daar- 
om conversie plaats van INTEGER naar REAL. Bij de tweede lees- 
opdracht is conversie niet nodig omdat de desbetreffende waarde 
voor Z reeds in REAL-vorm is opgegeven (5. 0E4). Uiteraard is er 
achter de schermen bij al deze invoeroperaties wel sprake van een 
conversie van de uitwendige 'symboolvorm' -de tekens in de data- 
regel- naar een interne bitrepresentatie. Daar zorgt de computer 
echter zelf voor. 


Ook bij toekenningsstatements kunnen conversies optreden. Dit 
gebeurt als een INTEGER-waarde aan een REAL-waarde wordt toe- 
gekend, of omgekeerd. Stel dat GEM een REAL-variabele is die het 
rekenkundige gemiddelde van een aantal tentamencijfers voorstelt. 
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Gevraagd wordt dit gemiddelde af te ronden tot het dichtstbijzijnde 
gehele getal. Hiertoe declareren we een INTEGER-variabele bij- 
voorbeeld CYFER. Vervolgens maken we gebruik van de in para- 
graaf 4.4 behandelde afrondingsmethode en schrijven 


CYFER = GEM + 0.5 


De expressie vertegenwoordigt na evaluatie een REAL-waarde, die 
bij toekenning wordt geconverteerd naar INTEGER. 


4.8 DE BEGRIJPELIJKHEID VAN EEN PROGRAMMA 


Identificatoren 


Een van de doelen van gestructureerd programmeren is program- 
ma's zo begrijpelijk mogelijk te maken. Zoals eerder opgemerkt is 
het kiezen van betekenisvolle identificatoren belangrijk voor de lees- 
baarheid en dus ook de begrijpelijkheid van een programma. Tot nu 
toe hebben we in onze programma's slechts simpele letters als iden- 
tificatoren gebruikt, Dit was min of meer te rechtvaardigen omdat 
het nog niet om specifieke toepassingen ging. In het algemeen kunnen 
dergelijke weinigzeggende identificatoren beter vermeden worden. 
Ze hebben de neiging het programma meer op een stuk algebra te 
doen lijken dan op gewoon proza. Hoe meer een programma op 
natuurlijke taal lijkt, hoe beter. Helaas stelt de beperking van zes 
tekens per identificator de fantasie van de programmeur in dit 
opzicht wel eens op de proef. 


Commentaarregels 


Een ander middel om programma's begrijpelijker te maken is het 
gebruik van toelichtend commentaar in de programmatekst. Com- 
mentaar bestaat uit willekeurige tekst op een afzonderlijke 
programmaregel: de commentaarregel. Commentaarregels zijn 
herkenbaar aan de letter C in de eerste positie, en lopen door tot 
en met positie 72. 


Voorbeeld: n DIT IS EEN COMMENTAARREGEL 


positie 1 


Is de tekst te lang voor één regel, dan kunnen meerdere regels wor- 
den gebruikt, mits in de eerste positie van die regels ook een C 
wordt aangebracht. De in hoofdstuk 3 besproken continueringsmoge- 


lijkheid -een continuatieteken in de vijfde positie- geldt hierbij 
niet, omdat commentaarregels niet als FORTRAN-statements wor- 
den aangemerkt. 


Voorbeeld: C DIT IS EEN COMMENTAARREGEL. HEBBEN 
C WE OP EEN REGEL TE WEINIG RUIMTE, 

C DAN KUNNEN WE OP DEZE MANIER VER- 

C 


DER GAAN. 


Commentaarregels worden door de compiler volledig genegeerd, 
en hebben dan ook geen enkele invloed op de executie van het pro- 
gramma. Ze kunnen op willekeurige plaatsen tussen de overige 
regels van het programma staan (maar niet tussen de bestands- 
regels). Ook blanco programmaregels worden als commentaar aan- 
gemerkt, en resulteren in een onbedrukte regel bij het afdrukken 
van het programma. Hiervan kan gebruik worden gemaakt om ver- 
schillende delen van een programma fysiek van elkaar te scheiden, 
en daardoor visueel beter herkenbaar te maken. Ook dit komt de 
leesbaarheid ten goede. In het vervolg zullen we in onze program- 
mavoorbeelden regelmatig commentaar opnemen. 


4.9 EEN VOORBEELD 


We behandelen nu een volledig programma waarin het gebruik van 
variabelen, toekenningsstatements, READ-statements, commen- 
taar en dataregels aan bod komt. De invoer van het programma 
bestaat uit de lengte, breedte en hoogte van een rechthoekige doos, 
opgegeven in inches. Het programma berekent de oppervlakte van 
het grondvlak in vierkante centimeters en de inhoud van de doos in 
kubieke centimeters, en drukt deze gegevens af. 
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programmatekst: 

C LEES LENGTE, BREEDTE EN HOOGTE IN INCHES. 00000001 

C CONVERTEER DAN NAAR CENTIMETERS EN BEREKEN OPPERVLAK 00000002 

C VAN GRONDVLAK EN INHOUD. 00000003 

00000004 

REAL LANG: BREED, HOOG, OPP, INHOUD, CONVER 00000005 
CONVER = 2.54 00000006 
READ #, LANG, BREED 00000007 
LANG = CONVER # LANG 00000008 
BREED = CONVER # BREED 00000009 
OPP = LANG  * BREED 00000010 
PRINT #, ‘OPPERVLAK = ‘, OPP 00000011 
READ +*#, HOOG 00000012 
HOOG = CONVER # HOOG 00000013 
INHOUD = HOOG  # OPP 00000014 
PRINT #, ‘INHOUD = ’, INHOUD | 00000015 
STOP 00000016 
END 00000017 

programmagegevens: 

2:6- 12 


6.92 


Het programma levert de volgende uitvoer: 


OPPERVLAK = 20.12899 
INHOUD = 353.8033 


waarbij de oppervlakte in vierkante centimeters en de inhoud in 
kubieke centimeters gegeven wordt. 


Toelichting 


Regels 1 t/m 3 zijn commentaar, bestemd voor de (menselijke) 
lezer. Ze worden door de compiler genegeerd. Regel 4 is een lege 
commentaarregel, bedoeld om het eigenlijke commentaar van de 
rest van het programma af te zetten. 


In regel 5 worden geheugenlokaties gereserveerd voor de variabelen 
LANG (= de lengte), BREED (= de breedte), HOOG (= de hoogte), 
OPP (= de oppervlakte), INHOUD (= de inhoud) en CONVER (= con- 
versiefactor inch naar centimeter). In verband met de verwerking 
van gebroken getallen zijn al deze variabelen bewust als REAL 
gekozen. 


In regel 6 wordt de conversiefactor (1 inch = 2, 54 centimeter) toege- 
kend aan CONVER. De eerste twee invoergegevens (2.6 en 1. 2) wor- 
den vervolgens ingelezen en toegekend aan respectievelijk LANG en 
BREED. 
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De ingelezen gegevens worden in regels 8 en 9 geconverteerd naar 
centimeters. De vermenigvuldigingsoperator is OPA essentieel. 
Men kan dus niet volstaan met: 


X = 2.54Y 
zoals in de algebra gebruikelijk is. 


In regel 10 vindt vermenigvuldiging plaats van de lengte en de 
breedte om de oppervlakte van het grondvlak te bepalen. Deze 
waarde wordt in OPP opgeslagen, en door middel van de state- 
ment in regel 11 afgedrukt als: 


OPPERVLAK = 20.12899 


Tot dit punt in het programma is nog geen gebruik gemaakt van de 
variabelen HOOG en INHOUD. Een poging deze variabelen samen 
met OPP in regel 11 af te drukken zou in een fout resulteren. De 
waarde van deze variabelen is immers nog niet gedefinieerd. Dit 
gebeurt pas in regel 12, waar de tweede dataregel wordt ingelezen. 
Daarbij krijgt HOOG de waarde 6.92. Merk op dat een nieuwe data- 
regel echt nodig is. 


Regels 13 t/m 16 verzorgen achtereenvolgens de conversie naar 
centimeters en het berekenen en afdrukken van de inhoud. Regel 16 
informeert de computer tenslotte dat de executie van het program- 
ma op dit punt kan eindigen. 


Een alternatief 


Dit programma zou met de volgende wijzigingen tot precies dezelf- 
de resultaten leiden: 


a. Vervang regel 7 door de volgende toekenningsopdrachten: 


LANG 
BREED 


e n 


G 

il 

b. Vervang regel 12 door de toekenningsopdracht: 
HOOG = 6.92 


Deze wijzigingen leiden tot een programma waarin de afmetingen 
van de doos door middel van toekenningsopdrachten in plaats van 
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leesopdrachten worden vastgelegd. Een invoerbestand c.q. het 
intoetsen van dataregels is hierbij niet nodig. Dit programma is 
dus minder algemeen dan het eerste, waar in geval van andere 
afmetingen slechts aanpassing van het invoerbestand nodig is. Het 
oorspronkelijke programma verdient dan ook de voorkeur. 


4.10 VERKLARENDE TEKST BIJ UIT VOERRESULTATEN 


Zoals een met goed commentaar doorspekt programma gemakkelij- 
ker te begrijpen is, zo wordt ook de uitvoer van een programma 
begrijpelijker als die uitvoer voorzien is van verklarende tekst. 


Tabellen 


In principe kan men hierbij op twee manieren te werk gaan, Indien 
verschillende waarden van dezelfde variabele of groep variabelen 

in tabelvorm worden afgedrukt, kan men boven elke kolom een 
kolomtitel afdrukken. Een vergelijkend prijsoverzicht van waspoeder 
in verschillende (gewichts)verpakkingen zou er bijvoorbeeld als 

volgt kunnen uitzien: 


PRIJS (CENT) GEWICHT (KG) PRIJS/KG 
250 1 250 
400 2 200 
520 3 173 


Bij het kiezen van de verklarende tekst is het niet nodig zich tot de 
identificatoren van de desbetreffende variabelen te beperken. De 
literalen die men bij het afdrukken gebruikt kunnen gerust langer 
zijn en eventueel spaties bevatten als scheiding in de tekst, of om 
de titels ten opzichte van de kolommen te positioneren. Als voor- 
beeld geven we een programma dat de bovenstaande tabel zou kun- 
nen produceren (zie p. 61). | 


Aan de hand van dit programma kan men zien: 


- hoe commentaar in de programmatekst kan worden opgenomen 
- hoe de uitvoeropdracht voor de kolomtitels samengesteld wordt 
- hoe iedere regel van de tabel wordt berekend en afgedrukt. 


Merk op dat GEW ( = gewicht) vermenigvuldigd wordt met de REAL- 
constante 1.0. De desbetreffende deelexpressie levert dan een 
REAL-waarde waardoor een INTEGER-deling wordt voorkomen. 


C MAAK TABEL VAN PRIJS PER KILOGRAM 


INTEGER PRYS, GEW, KGPRYS 


C DRUK KOLOMTITELS AF 
PRINT #, ‘PRIJS (CENT)’, ’ GEWICHT (KG)’, ’ PRIJS/KG'’ 
C VERWERK GEGEVENS VAN EERSTE DOOS 


READ #, PRYS, GEW 
KGPRYS = PRYS / (GEW # 1.0) + 0.5 
PRINT #, PRYS, GEW, KGPRYS 


C VERWERK GEGEVENS VAN TWEEDE DOOS 


READ #, PRYS, GEW 
KGPRYS = PRYS / (GEW # 1.0) + 0.5 
PRINT #, PRYS: GEW, KGPRYS 


C VERWERK GEGEVENS VAN DERDE DOOS 


READ #, PRYS, GEW 
KGPRYS = PRYS / (GEW # 1.0) + 0.5 
PRINT #, PRYS, GEW, KGPRYS 


STOP 
END 


programmagegevens: 


250 1 
400 2 
520 3 


Een ander aspect van dit programma is dat eenzelfde serie van drie 
statements -één serie voor elke verpakking- steeds wordt herhaald, 
Voor drie verpakkingen gaat dit nog, maar voor bijvoorbeeld 100 
verpakkingen zou dit enigszins vervelend gaan worden. FORTRAN 
kent gelukkig elegantere methoden om dergelijke herhalingen te pro- 
grammeren. Het taalgereedschap hiervoor komt echter pas bij de 
behandeling van SF/3 aan de orde. 


Verklarende tekst in de regel zelf 


Een andere manier om uitvoer van verklarende tekst te voorzien 
werd reeds in het voorbeeld van paragraaf 4.8 toegepast: 
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OPP = LANG # BREED 
PRINT #, ‘OPPERVLAK = ‘: OPP 


Dit resulteerde in: 
OPPERVLAK = 20.12899 


Deze methode is gemakkelijker wanneer slechts een klein aantal 
getallen wordt afgedrukt en bespaart ons de moeite van het positio- 
neren van kolomtitels. 


Het afdrukken van de invoergegevens 


In het algemeen verdient het aanbeveling invoergegevens direct na 
het inlezen af te drukken. Daardoor kan men zien of de juiste gege- 
vens zijn ingelezen, en of ze aan de juiste variabelen zijn toegekend. 
Men noemt dergelijke uitvoer een echo-print of een echo-check. In 
bovenstaande tabel was deze controle niet nodig omdat de invoerge- 
gevens (de prijs per verpakking en het gewicht) samen met het bere- 
keningsresultaat (de prijs per kilogram) werden afgedrukt. Ook bij 
het afdrukken van invoergegevens is passende tekst bij de uitvoer 
van belang. 


4.11 HET TESTEN VAN EEN PROGRAMMA 


Fouten zijn gauw gemaakt, Ook bij het programmeren. Een kritische 
houding ten aanzien van de correctheid van een pas geschreven pro- 
gramma is daarom niet misplaatst, Alvorens zo'n programma ter 
verwerking aan de computer aan te bieden, is het verstandig het 
geheel nog eens door te lezen, en het executieproces stap voor stap 
na te gaan. Het kan ook nuttig zijn het programma door een ander 

te laten nakijken. Slecht geformuleerde statements of fouten komen 
daardoor soms gemakkelijker aan het licht. 


Na deze eerste controle kan het programma, en ook eventuele 
invoergegevens, in machineleesbare vorm worden omgezet. Na ook 
dit gecontroleerd te hebben kan het geheel ter verwerking aan de 
computer worden aangeboden. 


Syntaktische fouten 


Fouten die tijdens de verwerking van een programma optreden kan 
men in twee categorieën indelen. In de eerste plaats zijn dit de 
syntaktische fouten, dat wil zeggen fouten die betrekking hebben op 
de vorm van programmastatements. De compiler herkent deze tij- 
dens het vertalen, en zal dat meestal ook op de een of andere 
manier melden. Daarbij wordt meestal gebruik gemaakt van de 
eerder genoemde interne statementnummers om de plaats van de 
fout aan te wijzen. 


Voorbeelden van syntaktische fouten zijn: 


- het vergeten van de komma na READ * of PRINT * 
- het vergeten van de sleutelwoorden END of STOP 
- spelfouten in sleutelwoorden. 


In zekere zin is de aanwezigheid van een of meer syntaktische fou- 
ten in een programma nog geen ramp -de fout(en) wordt immers 
tijdig ontdekt en kan meestal zonder al te veel moeite worden gecor- 
rigeerd. De aanwezigheid van dergelijke fouten kan echter een 
symptoom zijn van slordig programmeren, en een indicatie dat er 
ook andere fouten zijn. 


Wat doet de compiler met syntaktische fouten? 


Bij het ontdekken van een syntaktische fout proberen sommige com- 
pilers die fout zelf te herstellen, om dan verder te kunnen gaan met 
vertalen. Dit wordt aangegeven met een waarschuwing. De correc- 
ties die een compiler zelf aanbrengt zijn echter lang niet altijd 
betrouwbaar, en moeten daarom met de nodige argwaan worden 
bekeken. Onherstelbare fouten hebben tot gevolg dat het programma 
niet in executie kan gaan. 


Semantische fouten 


Bij de executie van een programma kunnen zogenaamde semantische 
fouten naar voren komen, dat wil zeggen fouten in de bedoeling, 
betekenis of logische inhoud van een programma of programmadeel. 
Men kan bijvoorbeeld met de expressie a / b * c bedoeld hebben 

a/ (b xe), terwijl dit in FORTRAN geïnterpreteerd wordt als 

(a / b) xc. Qua vorm dus geen fout, qua logische inhoud wel. Seman- 
tische fouten leiden dan ook niet altijd tot foutmeldingen. 
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Semantische fouten kunnen vaak worden opgespoord met behulp van 
controleberekeningen. Zijn de uitkomsten daarvan in overeenstem- 
ming met de computerresultaten, dan mag men de voorzichtige con- 
clusie trekken dat het programma wel eens correct zou kunnen zijn, 
Bij tegenstrijdige uitkomsten moet uiteraard worden bepaald of het 
programma fouten bevat, of dat de controleberekening verkeerd is 
uitgevoerd. 


Bij het opsporen van semantische fouten is het van belang te letten 
op wat het programma in zijn huidige vorm feitelijk doet. Het kan 
daarbij nuttig zijn op strategische punten in het programma extra 
uitvoeropdrachten op te nemen -vaak tussenuitvoer genoemd- en 
het programma nogmaals te laten verwerken. Dit kan het 'tracen'! 
aanzienlijk vereenvoudigen. Na het lokaliseren van de fout(en) kun- 
nen deze opdrachten worden verwijderd, of eenvoudig worden uitge- 
schakeld door een C in de eerste positie van de statements aan te 
brengen. 


4.12 VEEL VOORKOMENDE FOUTEN 


In het voorgaande gedeelte hebben we gezien dat een computer tijdens 
de verwerking van een programma fouten kan ontdekken. Ten gevolge 
daarvan worden foutmeldingen afgedrukt, Deze meldingen zijn niet 
zozeer inhoudelijk, maar meer computertechnisch van aard. De 
computer 'begrijpt' immers niets van de inhoudelijke bedoelingen 
van het programma, laat staan van de programmeur, en beperkt 
zich tot het signaleren van zaken die in technisch opzicht niet door 
de beugel kunnen, Helaas zijn de bijbehorende meldingen in vele 
gevallen voor de onervaren programmeur nogal ondoorzichtig en 
bieden daarom weinig houvast bij het corrigeren van het programma. 
Om hierin enige duidelijkheid te scheppen, en onder het motto ‘een 
gewaarschuwd mens telt voor twee!', geven we hier een overzicht van 
de fouten die beginnende FORTRAN-programmeurs plegen te maken. 


ontbrekende komma's: De verplichte komma na READ * en 
PRINT » wordt vaak vergeten. 


te veel komma's: Schrijf geen komma na sleutelwoorden 
zoals INTEGER en REAL. 


haakjes: Voor ieder openingshaakje moet er 
een bijbehorend sluithaakje zijn. 


ontbrekende END: 


ontbrekende apostrof(fen): 


niet-geïnitialiseerde 
variabelen: 


niet-gedeclareerde varia- 
belen: 
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Elk programma moet met een END- 
statement worden afgesloten, 


Vooral de afsluitende apostrof wordt 
vaak vergeten, bijvoorbeeld: 


PRINT x, 'PRYS PER KG 


In dit geval zullen de meeste compilers 
ervan uitgaan dat de volgende regel van 
het programma beschouwd moet worden 
als af te drukken tekst. Daarbij is het 
niet waarschijnlijk dat de volgende 
statement een continuatieteken in de 
zesde positie bevat. Het verwachte ver- 
volg blijft dus uit. Er verschijnt daar- 
om geen melding in de zin van 'ontbre- 
kende apostrof! maar bijvoorbeeld 
‘expected continuation not received! 

(= verwachte vervolg niet ontvangen). 
Een voorbeeld bij uitstek van de techni- 
sche, wat houterig aandoende manier 
waarop de computer reageert bij voor 
hem moeilijk of niet te verteren zaken. 


Bij het declareren van een variabele 
wordt wel een geheugenlokatie gereser- 
veerd, maar er wordt nog geen waarde 
in geplaatst. De waarde van de varia- 
bele is dan niet gedefinieerd. Anders 
gezegd: de variabele is niet geïnitiali- 
seerd, De variabele dient vóór ge- 
bruik in een expressie of PRINT- 
statement geïnitialiseerd te zijn, bij- 
voorbeeld met behulp van een toeken- 
ningsopdracht of een READ- statement. 


Een variabele moet gedeclareerd zijn 
alvorens in een toekennings-, READ- 
of PRINT-statement te worden ge- 
bruikt1, 


A Strikt genomen geldt dit alleen voor SF/k, niet voor FORTRAN 77. In 
FORTRAN 77 wordt bij het ontbreken van een declaratie een 'standaard' 
declaratie aangenomen, Deze kan echter in strijd zijn met de bedoelingen 


van de programmeur. 
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verwisseling I en 1: Bij het schrijven of intoetsen van een 
programma wordt de letter I wel eens 
met het cijfer 1 verward. Ook het cij- 
fer 7 en de kleine letter 1 geven in dit 
verband wel eens moeilijkheden. 


verwisseling O en 0: Verwarring tussen de letter O en het 
cijfer 0. Ter onderscheid wordt de 
letter soms doorgestreept (Ø), maar 
ook het omgekeerde komt voor. Dit kan 
op zijn beurt weer verwarring geven 
met de letter Q. 


lezen voorbij het einde van Ten gevolge van een onjuiste samen- 

een invoerbestand: stelling van de invoerlijst, een ver- 
keerde inrichting van de dataregel(s), 
het ontbreken van dataregels, of het 
ten onrechte uitvoeren van een READ- 
statement, kan een programma 
trachten niet-bestaande invoergege- 
vens in te lezen. Houd rekening met 
het feit dat, zoals iedere uitvoering 
van een PRINT-statement een 
nieuwe regel tot gevolg heeft, bij 
iedere uitvoering van een READ- 
statement een nieuwe dataregel 
nodig is. 


verkeerd datatype: Conversies tussen INTEGER- en 
REAL-datatypen vinden automatisch 
plaats en kunnen tot onverwachte 
resultaten leiden, Ook INTEGER- 
delingen kunnen moeilijkheden veroor- 
zaken. 
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4.13 SAMENVATTING 


In dit hoofdstuk is het begrip variabele, zoals gebruikt in program- 
meertalen, ingevoerd. Een variabele is in wezen een geheugenloka- 
tie die een waarde kan bevatten. Als X de naam is van een variabe- 
le, dan verwijzen we met X eigenlijk naar een bepaalde geheugenlo- 
katie. Is X een INTEGER-variabele, dan kan de desbetreffende 
geheugenlokatie uitsluitend INTEGER-waarden zoals 9, 291, 0 of 
-11 bevatten. 


Verder kwamen de volgende kernbegrippen in dit hoofdstuk aan de 
orde. 


identificator: Bestaat uit een letter, eventueel ge- 
volgd door maximaal 5 letters en/of 
cijfers. Een identificator kan dus niet 
langer dan zes tekens zijn. Identifica- 
toren worden (onder andere) gebruikt 
als namen van variabelen. 


Voorbeelden: X, I, INHOUD, SOMI 


datatype: Een gegevenscategorie zoals INTEGER 
(voor gehele getallen) of REAL (voor 
gebroken getallen). Aan iedere varia- 
bele is één specifiek datatype verbon- 
den. 


declaratie: Het verbinden van een datatype aan een 
variabele. De declaratie: 


INTEGER I 


creëert een variabele met de naam I, 
waaraan uitsluitend INTEGER-waarden 
kunnen worden toegekend. Declaraties 
moeten aan het begin van een program- 
ma plaatsvinden, vóór READ-, PRINT- 
of toekenningsstatements. Een decla- 
ratie heeft in SF/2 een van de volgende 
vormen: 


INTEGER identificatorlijst 
REAL identificatorlijst 
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toekenning: 


afkapping: 


getalconversie: 


invoergegevens: 


REA D-statement: 


waarin 'identificatorlijst' een variabele 
voorstelt, of meerdere variabelen 
gescheiden door komma's. 


Het verbinden van een bepaalde waarde 
aan een variabele door middel van een 
statement van de vorm: 


variabele = expressie 

Na uitvoering van de statement: 

I = 52 

bijvoorbeeld, heeft I de waarde 52. 


Het verwaarlozen van het breukdeel 
van een gebroken getal waardoor een 
geheel getal overblijft. Bij toekenning 
van een REAL-getal aan een INTEGER- 
variabele, bijvoorbeeld: 


L = 02.6 


krijgt die variabele de afgekapte waar- 
de (in dit voorbeeld dus 52). 


Het veranderen van een INTEGER- in 
een REAL-waarde, of omgekeerd. Bij 
conversie van REAL naar INTEGER 
treedt afkapping op. 


Gegevens die vanaf een bestand door 
een programma kunnen worden ingele- 
zen. 


Dient voor het inlezen van invoergege- 
vens en heeft de vorm: 


READ +, invoerlijst 


waarbij '‘invoerlijst' een variabele is, 
of meerdere variabelen gescheiden 
door komma's. In het laatste geval 
wordt het leesproces indien nodig met 


commentaarregel: 


sleutelwoord: 


syntaktische fout 


semantische fout: 
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een volgende dataregel voortgezet. 

Het inlezen van de waarden op een 
dataregel eindigt wanneer alle varia- 
belen genoemd in de invoerlijst van 
een waarde zijn voorzien. Bevat de 
dataregel die op dat moment aan de 
beurt is nog ongelezen invoerwaarden, 
dan worden die bij een eventueel vol- 
gende READ-statement buiten beschou- 
wing gelaten. 


Informatie die deel uitmaakt van de 
programmatekst, en bestemd is voor 
de menselijke lezer, 


Voorbeeld: 


C DIT PROGRAMMA DRUKT GASRE- 
C KENINGEN AF 


De letter C waarmee een commentaar- 
regel begint moet in positie 1 staan. 
Commentaar heeft geen invloed op de 
executie van het programma. Blanco Ž 
programmaregels worden als com- 
mentaar aangemerkt, en resulteren 

in overeenkomstige blanco regels bij 
het afdrukken van het programma. 


Een woord zoals READ of STOP dat in- 
herent is aan de programmeertaal, 
Sleutelwoorden kan men beter niet als 
identificatoren gebruiken. 


Een fout tegen de vorm van de taal, bij- 
voorbeeld: 


PRINT *, 5*(2+3 


(er ontbreekt een sluithaak in de ex- 
pressie). Dergelijke fouten leiden tot 
foutmeldingen. 


Een inhoudelijke fout die, in tegenstel- 
ling tot een syntaktische fout, niet per 
sé in een foutmelding behoeft te resul- 
teren. 
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4.14 OPGAVEN 


L 


2. 


Stel I, J en K zijn INTEGER-variabelen met de waarden 5, 7 
respectievelijk 10. Wat wordt ten gevolge van onderstaande 
statements afgedrukt? 


PRINT Or Io, I + 1e IT + Jr [+ jek 
Ks Tet 'J 

PRINT #, K 

dad 4 

PRINT #; J 

i aa D a e. 

PRINT #,. I 


STRAAL, DIAMTR, OMTREK en OPP zijn REAL-variabelen. 
Aan STRAAL is door middel van een READ-statement een waarde 
toegekend. Schrijf statements voor de volgende bewerkingen. 


a. Toekennen van het produkt van 2 en de waarde van STRAAL 
aan DIAMTR. 

b. Toekennen van het produkt van pi (= 3.14159) en DIAMETR 
aan OMTREK. 

c. Toekennen van het produkt van pi en het kwadraat van STRAAL 
aan OPP (het kwadraat van STRAAL kan geschreven worden 
als STRAAL*STRAAL). 

d. Druk de waarden van STRAAL, DIAMTR, OMTREK en OPP af. 


Stel I is een INTEGER-variabele, waaraan door middel van een 
toekenningsstatement een waarde is toegekend. Schrijf statements 
voor de volgende bewerkingen. 


a. Druk het dubbele van de waarde van I af, zonder I daarbij te 
veranderen. 

b. Verhoog de oorspronkelijke waarde van I met 1. 

c. Verdubbel vervolgens de huidige waarde van I, 

d. Verminder de huidige waarde van I met 5. 


. M, N en P zijn INTEGER-variabelen. Wat wordt ten gevolge van 


onderstaande statements afgedrukt? 


43 
211 


n T Ba | 


mnu 
zZ 
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5. Welke uitvoer wordt geproduceerd door het volgende program- 


ma? 
INTEGER EERSTE, TWEEDE 
READ #, EERSTE: TWEEDE 
PRINT *#,; EERSTE + TWEEDE 
READ #, EERSTE: TWEEDE 
PRINT #; EERSTE + TWEEDE 
STOP 
END 

programmagegevens: 


KE ee ~IS 
Se I2 


6. Welke uitvoer wordt geproduceerd door de volgende job? 
€ BEREKEN GEMIDDELDE SCORE 


REAL SCORE1, SCOREZ 

INTEGER GSCORE 

READ #, SCORE1, SCOREZ 

GSCORE = (SCORE1 + SCORE2) / 2.0 + 0.5 
PRINT #, SCORE1, SCORE2:, GSCORE 


STOP 
END 
programmagegevens: 
81.7 
85.9 


7. Ga stap voor stap de executie van het volgende programma na. 
Dat wil zeggen: bepaal de waarden die de variabelen MAAT, 
LANG, BREED en AFROND na uitvoering van elke statement 
hebben, en welke uitvoer eventueel wordt geproduceerd. 


C LEES AFMETINGEN EN CONVERTEER ENGELSE VOETEN NAAR YARDS 


INTEGER AFROND 

REAL MAAT, LANG, BREED 

READ #, MAAT 

BREED = MAAT / 3.0 

READ 2%, MAAT 

LANG = MAAT / 3.0 

AFROND = BREED +» LANG + 0.5 

PRINT #, ‘LENGTE EN BREEDTE ZIJN ‘7; LANG: BREED 
PRINT #:; ‘OPPERVLAKTE IS: ’; LANG # BREED, 
$ ‘ D.W.Z. ONGEVEER ’; AFROND: ‘(SQUARE YARDS)?” 
STOP 

END 
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10. 


programmagegevens: 


9.6 
15.9 


Schrijf een programma dat drie invoerwaarden inleest en het 
gemiddelde daarvan, afgerond tot het dichtsbijzijnde getal, af- 
drukt. Bij het inlezen van bijvoorbeeld de waarden 20, 16 en 25 
zou het programma dus de waarde 20 moeten afdrukken. Verzin 
uw eigen invoerwaarden voor dit programma. 


Schrijf een programma dat een gewicht, uitgedrukt in Engelse 
ponden, inleest en afdrukt in de volgende eenheden. 


a. Engelse pond (Engels: pound) 

b. Engelse ons (Engels: ounce avoirdupois) 
c. kilogram 

d. gram 


Aanwijzingen: 16 ounce avoirdupois = 1 pound; 2. 2046 pound = 
1 kilogram. 


Schrijf een programma dat een afstand in mijlen inleest en af- 
drukt in de volgende eenheden. 


a. mijl 
b. yard 
C. voet 
d. inch 
e. meter 


Aanwijzingen: 1 yard = 3 voet = 36 inch; 1760 yard = 1 mijl; 
1 kilometer = 0. 62137 mijl. 


5 SF/3: PROGRAMMABESTURING 


In de vorige twee hoofdstukken zijn de subsets SF/1 en SF/2 behan- 
deld. Met het materiaal van deze subsets kan een aantal basishande- 
lingen worden verricht zoals: 

- het inlezen van gegevens vanaf invoerbestanden, 

- samenstelling en evaluatie van expressies, 

- toekenningen van de vorm v = e, 

- het afdrukken van gegevens. 

In alle tot nu toe behandelde programma's werden de statements uit- 
gevoerd in de volgorde waarin ze in het programma stonden, met 
andere woorden 'sequentieel' of 'volgordelijk'. 


Dit hoofdstuk heeft SF/3 als onderwerp. Er komen in dit hoofdstuk 
twee methoden aan de orde om de uitvoeringsvolgorde van statements 
te veranderen, De ene mogelijkheid houdt het herhaald uitvoeren 

van dezelfde serie statements in, De andere heeft betrekking op het 
voorwaardelijk uitvoeren van één of meer statements. In het eerste 
geval spreken we van een lus (Engels: loop), in het tweede geval van 
een vertakking (Engels: branch). In beide gevallen wordt de uitvoe- 
ringsvolgorde door middel van speciale statements bestuurd. Deze 
statements bepalen de zogenaamde besturingsstroom (Engels: 

control flow) binnen het programma. We spreken hierbij dan ook van 


programmabesturing. 


5,1 TELLER-BESTUURDE LUSSEN 


In paragraaf 4.10 van het vorige hoofdstuk kwam een programma 
voor waarin steeds opnieuw gegevens over waspoeder werden ingele- 
zen en verwerkt. Verschillende statements moesten daarbij keer op 
keer worden geschreven om de desbetreffende bewerkingen te kunnen 
herhalen. De programmabesturing was zuiver sequentieel. Eerst 
werd de eerste opdracht uitgevoerd, vervolgens de tweede, de derde 
enzovoort, totdat de laatste (STOP-)statement was uitgevoerd. Dit 
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is voor te stellen door een rechte lijn. 


Bij dit programma zou een ‘cyclische! programmabesturing elegan- 
ter zijn geweest. 'Cyclisch' wil zeggen dat de te herhalen statements 
eenmaal worden geschreven, en dan opgenomen in een programma- 
lus, die we een aantal keren laten doorlopen. Zo'n programmalus 
kan op verschillende manieren worden gerealiseerd, Een mogelijk- 
heid is de tellerbestuurde DO-lus. Toepassing hiervan in ons was- 
poederprobleem zou het volgende programmafragment opleveren: 


DO tibe “ 1 =1,3 
READ *, PRYS, GEW 
KGPRYS = PRYS / (GEW + 1.0) + 0.5 
PRINT *, PRYS, GEW, KGPRYS 
label CONTINUE 


De te herhalen statements worden dus voorafgegaan door: 
DO label I= 1,3 


en gevolgd door CONTINUE (het woord 'label', dat hierbij tweemaal 
voorkomt, laten we nog even buiten beschouwing). Dit fragment zou 
de statements tussen de eerste PRINT en de STOP-statement van 
het oorspronkelijke programma volledig kunnen vervangen. 


Het lusmechanisme 


De eerste statement van het programmafragment is een DO-state- 
ment. De variabele I die in deze statement voorkomt is een teller 
die het aantal herhalingen bepaalt. Hij moet gedeclareerd zijn als 
INTEGER en wordt bij het begin van de lus ingesteld op de eerstge- 
noemde waarde na de teller in de DO-statement (1). Deze waarde 
noemen we de beginparameter (Engels: initial parameter). Daarna 
worden de volgende drie statements uitgevoerd (READ tot en met 
PRINT). Het bereiken van de CONTINUE-statement heeft tot gevolg 
dat de besturing overgedragen wordt aan de DO-statement. De teller 
I wordt automatisch met de standaardwaarde 1 -de zogenaamde 
stapwaarde- verhoogd; en er wordt bepaald of de nieuwe waarde 
van de teller (2) groter is dan de tweede waarde die in de DO-state- 
ment voorkomt (3). Deze waarde wordt de eindparameter genoemd 
(Engels: terminal parameter). In dit stadium is de eindwaarde nog 
niet bereikt, en de drie statements na de DO -ook wel de 'body' 


y Geldt alleen voor SF/k. In FORTRAN 77 zijn ook REAL en DOUBLE PRECI- 
SION tellers toegestaan. In verband met problemen bij het bepalen van het 
aantal herhalingen (de zogenaamde iteration count) moet het gebruik van 
deze mogelijkheid worden afgeraden. 


15 


(= het lichaam, kern) van de DO-lus genoemd- worden daarom 
opnieuw uitgevoerd. Via het bereiken van de CONTINUE- statement 
wordt de besturing opnieuw overgedragen aan de DO-statement. De 
tellerwaarde wordt nu 3. Hiermee is de eindwaarde (3) nog steeds 
niet overschreden. De lus wordt daarom opnieuw uitgevoerd, De 
teller I krijgt nu bij het bereiken van de DO-statement de waarde 4. 
De eindwaarde (3) wordt nu wel overschreden. De uitvoering van de 
lus wordt dan ook prompt beëindigd, en de besturing overgedragen 
aan de statement die op de CONTINUE volgt, 


Het begrip label 


We komen nu terug op de tot nu toe buiten beschouwing gelaten 
label, Bij het uitvoeren van een DO-statement moet men kunnen 
aangeven tot hoever de lusoperaties zich uitstrekken. Hiervoor 
dient de label. 


De label is een identificatie van een statement waarmee vanuit ande- 
re plaatsen in het programma naar die statement kan worden verwe- 
‚zen. Hij bestaat uit een reeks van 1 tot en met 5 cijfers in de eerste 
5 posities van de programmaregel. 

Deze posities vormen samen het labelveld, De cijferreeks is binnen 
het labelveld niet positiegevoelig, dat wil zeggen labels van minder 
dan 5 cijfers kunnen op willekeurige posities binnen het labelveld 
worden geplaatst, Blanco posities zijn daarbij niet significant, De 
volgende alternatieven zijn dus gelijkwaardig: 


23bbb 
bb2 3b 
2bbb3 
2b3bb 


waarbij b = blanco positie. 


Labelnummers behoeven niet overeen te komen met de plaats van 
een statement in het programma, Voor de drie-en-twintigste pro- 
grammaregel, bijvoorbeeld, kan men zonder problemen een andere 
label dan 23 kiezen, 


Evenmin zijn de nummers onderling volgordegevoelig. Het is dus 
toegestaan voor een bepaalde statement een nummer te kiezen dat 
lager is dan het nummer van een daaraan voorafgaande statement, 
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Bovenstaand voorbeeld kunnen we nu als volgt completeren: 


DO :40:-Fres:1148 
READ *, PRYS, GEW 
KGPRYS = PRYS/ (GEW x 1.0) + 0.5 
PRINT +, PRYS, GEW, KGPRYS 
10 CONTINUE | 


Hierbij is 10 een arbitrair gekozen nummer. 


De betekenis van de label bij de DO-statement 


Labels kunnen op verschillende manieren worden gebruikt. Bij DO- 
statements dient de label, zoals gezegd, om het bereik van de lus 
aan te geven. De statement waarnaar de label verwijst noemen we 
de terminal- of slotstatement van de DO-lus. Alle statements vanaf 
de statement direct volgend op de DO tot en met deze terminal- 
statement vormen het werkgebied (Engels: range) van de DO. 


De terminal-statement 


In SF/k is de terminal-statement per definitie een CONTINUE- 
statement. Deze wordt aangemerkt als executable maar heeft verder 
geen enkele actie tot gevolg -het is een 'dummy' statement. In 
principe zouden ook bepaalde andere executable statements als 
terminal-statement kunnen functioneren!, Terwille van de herken- 
baarheid, en om vergissingen te voorkomen, verdient de CONTINUE- 
statement echter de voorkeur. 


De DO-parameters 


Een teller-bestuurde DO-lus kan worden toegepast als precies 
bekend is hoeveel herhalingen er moeten plaatsvinden. Men is niet 
per sé gebonden aan een begin- en een stapwaarde van 1. Een geldi- 
ge DO-statement (afgezien van de label) waarbij dit tot uitdrukking 
komt is: 


DO label TEL = 12, 24, 2 


i Als terminal-statement kan men volgens X3. 9-1977 elke executable state- 
ment gebruiken behalve de zogenaamde unconditional GO TO, assigned 
GO TO, arithmetic IF, block IF, ELSE IF, ELSE, END IF, RETURN, 
STOP, END of DO. Is de terminal-statement een logical IF, dan mag 
daarin geen ELSE IF, ELSE, END IF, END of een andere logical IF 
voorkomen. 
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De teller (ook wel index of DO-variabele genoemd) krijgt hierbij de 
beginwaarde 12, en wordt in stappen van 2 verhoogd tot de eind- 
waarde 24, dus: 


EE STB 14, 10, iss. ‚ 24 


De stapwaarde (Engels: inerementation parameter) moet dan wel ex- 
pliciet als derde parameter -de stapparameter- in de DO-statement 
worden opgegeven. Doet men dit niet, dan geldt er een 'verstekwaar- 
de' (Engels: default value) van 1. 


In SF/k geldt dat begin-, eind- en stapwaarde positieve INTEGER- 
constanten of -variabelen moeten zijn (de waarde nul is dus niet toe- 
gestaan). Dit houdt onder andere in dat tellen in negatieve richting 
of met stappen van bijvoorbeeld 0.1 niet mogelijk is. Het impliceert 
ook dat de beginwaarde groter moet zijn dan de eindwaarde. Is dit 
niet het geval, dan wordt de lus niet uitgevoerd!, Deze beperkingen 
komen overeen met de eisen van FORTRAN 66, In FORTRAN 77 zijn 
de beperkingen minder stringent, maar terwille van de eeffvoud en 
de betrouwbaarheid sluiten we ons in SF/k bij de vroegere beper- 
kingen aan. 


5.2 LOGISCHE EXPRESSIES 


Een andere lusconstructie is de voorwaardelijke lus. Dergelijke lus- 
sen worden slechts uitgevoerd indien aan bepaalde voorwaarden (con- 
dities) is voldaan. Condities worden in FORTRAN in de vorm van 
logische expressies gesteld, Alvorens de voorwaardelijke lus te 
behandelen nemen we deze expressies onder de loep. 


Logische expressies zijn FORTRAN-uitdrukkingen die waar (Engels: 
true) of onwaar (Engels: false) kunnen zijn. In hun eenvoudigste vorm 
bestaan ze uit rekenkundige expressies (dus expressies met een 
numerieke waarde) en zogenaamde relationele operatoren. In figuur 
5-1 geven we een overzicht van deze operatoren en hun betekenis, en 
voorbeelden van hun gebruik. 


De in de figuur voorkomende expressies hebben de algemene vorm: 


rekenkundige expressie relationele operator rekenkundige ex- 
pressie 


lvolgens de oude norm is deze situatie expliciet verboden. Meerdere 
FORTRAN 66-compilers voeren in dit geval de lus echter één keer uit. 
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er Ge voorbeeld 
operator betekenis notatie 5 
; expressie waarde 
MEE Fa aa kleiner dan < Be SA U i waar 
(Engels: less than) 
‚LE. kleiner dan of gelijk aan < 5.3. LE,2+1 onwaar 
(Engels: less than or 
equal to) 
‚EQ. gelijk aan = 5. EQ. 2+3 waar 
(Engels: equal to) 
‚GE, groter dan of gelijk aan > 5. GE, 2+3 waar 
(Engels: greater than or 
equal to) 
ele groter dan > DO. 9 onwaar 


(Engels: greater than) 


‚NE, ongelijk aan + 6.NE.10 waar 
(Engels: not equal to) 


Fig. 5-1. Relationele operatoren 


We kunnen ze beschouwen als enkelvoudige expressies omdat er 
slechts van één (relationele) operator sprake is. Twee enkelvoudige 
logische expressies kan men door tussenvoeging van een zogenaam- 
de logische operator combineren tot een samengestelde expressie. 
In eerste instantie bedoelen we hier de logische operatoren '. AND. ' 
en '. OR. '. Bij . AND. is de samengestelde expressie waar als 
beide enkelvoudige expressies waar zijn; anders is de expressie 
onwaar. 


Voorbeeld: 8.GT.7.AND.6.LT.3 


is onwaar omdat 6. LT. 3 onwaar is. 


Bij . OR. is de samengestelde expressie waar als beide, of een van 
beide, enkelvoudige expressies waar zijn/is. 
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Voorbeeld: 8.GT.7.OR.6. LT.3 


is waar omdat 8. GT. 7 waar is. 


Door steeds twee logische expressies te verbinden met een . AND. 
of .OR. operator kunnen meervoudige samenstellingen tot stand 
komen, bijvoorbeeld: 


(8. GT. 7, AND, 2, EQ. 1+1). AND. (6. GT. 7. OR. 5. GT. 1) 


Deze expressie is waar omdat de expressiedelen aan weerskanten 
van de tweede . AND. waar zijn. De haakjes geven aan wat bij wat 
hoort, en kunnen in het algemeen worden gebruikt om de evaluatie- 
volgorde te beïnvloeden. Bij het ontbreken van haakjes geldt de 
prioriteitsregel dat . AND. operaties voorrang hebben boven . OR. 
operaties. 


Voorbeeld: 1.GT.8.OR.6., LT. 3. AND. 2, EQ, 1+1 
is gelijkwaardig met: 
1.GT.8.OR. (6. LT.3. AND. 2. EQ. 1+1) 


en is onwaar omdat zowel 7.GT,8 als de samenge- 
stelde expressie rechts van de . OR. onwaar is, 


Naast . AND. en OR. bestaat een derde logische operator: de 
. NOT.. Deze wordt gebruikt in de vorm: 


. NOT. logische expressie 


en heeft het inverteren van de waarde van de bijbehorende logische 
expressie tot gevolg. Is die expressie waar, dan wordt het resultaat 
onwaar, en omgekeerd. 


Voorbeeld: ‚NOT. 7. GT.8 


is waar omdat 7. GT. 8 onwaar is. 


Merk op dat zowel bij relationele als logische operatoren de punten 
een integraal deel van de operator zijn. Bij het vorige voorbeeld 
(en trouwens alle in deze paragraaf gegeven voorbeelden) ging het 
om INTEGER-constanten: de punten behoren immers bij de relatio- 
nele operator '. GT. ' en niet bij de constanten 7 of 8. 
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Overigens heeft een dergelijk gebruik van constanten, ongeacht of ze 
INTEGER dan wel REAL zijn, weinig zin, De meeste programmeurs 
zullen -ondanks hun verknochtheid aan het verschijnsel 'computer'- 
nog wel in staat zijn zelf te bepalen of bijvoorbeeld 7 al dan niet 
groter is dan 8. Het gebruik van uitsluitend constanten in boven- 
staande voorbeelden is dan ook slechts als illustratie van de ver- 
schillende operaties bedoeld, In de praktijk zal men in het algemeen 
met variabelen of uitgebreidere expressies werken, 


5.3 VOORWAARDELIJKE LUSSEN 


In dit gedeelte zullen we het begrip 'logische expressie! dat in de 
vorige paragraaf werd ingevoerd daadwerkelijk gaan toepassen bij 
voorwaardelijke lussen. Als voorbeeld nemen we weer het waspoe- 
derprobleem van de paragrafen 4.10 en 5.1. 


1 I=1 

2 5 IF(I.GT. 3) GO TO 10 

3 READ *, PRYS, GEW 

4 KGPRYS = PRYS/(GEWx1.0) + 0.5 
5 PRINT *, PRYS, GEW, KGPRYS 
6 I=I+1 

7 GO TO 5 

8 = 10 CONTINUE 

9 PRINT x, I 


Afgezien van de laatste statement is dit voorbeeld gelijkwaardig met 
het programmafragment in paragraaf 5.1. Regels 3 tot en met 5 
vormen hierbij de eigenlijke (inhoudelijke) kern van de lus. Ook 
regels 6 en 7 behoren tot de lus, maar dienen voor de lusbesturing. 
Ze zijn te vergelijken met respectievelijk de stapparameter en de 
terminal-statement bij de DO-lus. 


De ’IF...GO TO’-statement 


Deze statement bestaat uit de sleutelwaarden IF en GO TO. Tussen 
deze sleutelwoorden staat een logische expressie, (I. GT. 3). De 
haakjes aan weerszijden van de expressie zijn verplicht. Bij de uit- 
voering van de IF...GO TO wordt eerst deze expressie geëvalu- 
eerd. Is het resultaat 'waar' dan wordt het derde deel van de state- 
ment uitgevoerd: GO TO 10, waarbij 10 een label is. Ten gevolge 
van deze GO TO wordt 'gesprongen' naar de statement met label 10 
(regel 8). Met andere woorden: regels 3 tot en met 7 worden niet 
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uitgevoerd, Is het resultaat van de logische expressie 'onwaar', 
dan wordt de uitvoering van het programma voortgezet bij de state- 
ment volgend op de IF...GO TO. 


Toelichting op het voorbeeld 


Uit het voorgaande volgt dat herhaling van de lus afhankelijk is van 
de conditie I. GT.3. We gaan er hierbij van uit dat de variabele I 
van het type INTEGER is. I krijgt in regel 1 de beginwaarde 1 toege- 
kend. 


Door deze initialisatie wordt bij de eerste uitvoering van de IF... 
GO TO niet aan de conditie I. GT.3 voldaan. De 'kernstatements' 
van de lus (regels 3 tot en met 5) worden dus achtereenvolgens uitge- 
voerd, waarna I wordt verhoogd tot 2, Uitvoering van de volgende 
statement -GO TO 5- heeft tot gevolg dat de tot nu toe sequentiële 
uitvoering van de statements wordt doorbroken: er wordt gesprongen 
naar de statement met label 5 (regel 2). 


Door deze terugwaartse sprong komen we weer terecht bij de eerder 
uitgevoerde IF,..GO TO. De conditie I. GT.3 wordt opnieuw 'beke- 
ken! (uiteraard met de aangepaste waarde van I), met als gevolg het 
herhalen van de lusstatements. 


Dit proces gaat zo door tot I de waarde 4 krijgt. Er wordt dan wel 
aan de conditie I. GT.3 voldaan, en door een sprong naar de 
CONTINUE-statement wordt de uitvoering van de lus beëindigd, 


De rol van de CONTINUE-statement 


Merk op dat de CONTINUE-statement in dit verband, strikt logisch 
gezien, anders functioneert dan bij de DO-lus, In het laatste geval 
dient de CONTINUE voor het markeren van het 'logische' einde van 
de lus, Hij is in de lus zelf opgenomen, en wordt dan ook telkens in 
het herhalingsproces betrokken, Bij de voorwaardelijke lus staat de 
CONTINUE daarentegen buiten de eigenlijke lusconstructie. Hij 
wordt (in principe) slechts eenmaal uitgevoerd, en wel direct na het 
beëindigen van de lus, In beide gevallen wordt het programma 
‘effectief! gezien echter op dezelfde plaats voortgezet -bij de state- 
ment na de CONTINUE, In dit opzicht is er tussen beide vormen 
geen verschil, 


In FORTRAN 66 was de waarde van de teller na afloop van de lus onbepaald. 
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De waarde van de teller na beëindiging van de lus 


Uitvoering van de PRINT-statement in regel 9 -een toevoeging ten 
opzichte van het oorspronkelijke voorbeeld- zou laten zien dat de 
teller inderdaad de waarde 4 heeft, dus 1 groter dan de testwaarde. 
Met deze waarde kan desgewenst verder in het programma worden 
gerekend. Dit geldt ook voor de DO-statement!. 


De algemene structuur 


De algemene besturingsstructuur van de 'IF...GO TO'-lus, zoals we 
de voorwaardelijke lus ook wel aanduiden, bestaat uit de volgende 
fasen, 


1. Initialisatie, in het bijzonder van de in de IF...GO TO gebruikte 
variabele(n). 

2. Testen op de conditie, waarbij gesprongen wordt naar de 
CONTINUE-statement indien aan de conditie wordt voldaan; de 
uitvoering van de lus wordt hierbij beëindigd, 

3. Uitvoering van de lus (waarbij inbegrepen het aanpassen van de 
teller) indien niet aan de conditie wordt voldaan. 

4, Het terugspringen naar fase 2 door middel van de 'GO TO'- 
statement die aan de CONTINUE voorafgaat, 


Het gebruik van de ’GO TO’-statement in SF/k 


De 'GO TO'-statement kan ook zelfstandig worden gebruikt, dat 
wil zeggen buiten het verband van een 'IF...GO TO'-lus, Dit kan 
echter al gauw leiden tot programma's met een zeer ingewikkelde 
besturingsstructuur (de beruchte 'spaghetti'-programma's), zo al 
van structuur gesproken zou kunnen worden. In overeenstemming 
met de opvatting dat men 'GO TO'-statements bij gestructureerd 
programmeren zoveel mogelijk dient te vermijden, wordt de 

'GO TO' in SF/k slechts in het verband van de 'IF...GO TO'- 
constructie gebruikt. 


5.4 EEN TOEPASSING: HET INLEZEN VAN DATAREGELS 


Als een illustratieve toepasing van lusconstructies houden we ons in 
deze paragraaf bezig met het inlezen en afdrukken van bestandgege- 
vens. We nemen aan dat elke bestand- of dataregel één regel uit- 
voer op de regeldrukker produceert. 
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Bij deze toepassing is het enige probleem van betekenis de vraag: 
hoe beëindigen we de lus wanneer de laatste dataregel verwerkt is? 
Eén oplossing zou zijn het aantal dataregels vooraf zelf te tellen, 
en deze waarde op te nemen in een voorafgaande dataregel. Deze 
waarde wordt dan eerst ingelezen en als testwaarde in een teller- 
bestuurde DO-lus gebruikt. In de lus zelf worden dan de overige 
dataregels ingelezen en verwerkt. 


Een andere oplossing zou het opnemen van een speciale sluitregel 
aan het einde van het bestand zijn. In deze regel (ook wel dummy- 
regel, sentinel of end-of-file marker genoemd) zetten we dan een 
fictieve! waarde, dat wil zeggen een waarde die onmogelijk als een 
geldige invoerwaarde kan voorkomen. Op deze waarde zou in de 
IF...GO TO'-statement van een voorwaardelijke lusconstructie 
getest kunnen worden. 


We gaan ervan uit dat de invoergegevens bestaan uit het registratie- 
nummer van een student, en een tentamencijfer. Ter vereenvoudi- 
ging beperken we ons tot drie dataregels; in principe kunnen dit er 
uiteraard veel meer zijn. 


Methode 1: het tellen van de dataregels 


programma: 


INTEGER REGNR, CYFER, AANTAL, I 
PRINT #, ‘REGISTRATIENUMMER’, ’ TENTAMENCIJFER ’ 
READ #, AANTAL 
DO 25 I = 1, AANTAL 
READ #, REGNR: CYFER 
PRINT #, REGNR: ’ ‘‚ CYFER 
25 CONTINUE 
STOP 
END 


programmagegevens: 


3 

1026 8 
2031 9 
3163 7 


Merk op dat we de moeite hebben genomen de resultaten van verkla- 
rende tekst te voorzien. In verband met de lengte van de literaal 
'REGISTRATIENUMMER! was het daarbij voor de positionering 
nodig in de tweede PRINT-statement een literaal van 5 spaties op te 
nemen (uitgaande van 12 afdrukposities voor een INTEGER-waarde). 


Bij de tweede methode gaan we uit van twee nullen als testwaarde 
in de sluitregel. 
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Methode 2: het gebruik van een sluitregel 


programma: 


INTEGER REGNR, CYFER 
PRINT #, 'REGISTRATIENUMMER’, ’ TENTAMENCIJFER ’ 
READ #, REGNR, CYFER 


5 IF (REGNR .EQ. 0) GOTO 10 
PRINT #, REGNR, ’ ', CYFER 
READ #, REGNR, CYFER 
GOTO 5 
10 CONTINUE 
STOP 
END 
programmagegevens: 
1026 8 
2051 9 
3163 7 
0 O 


Merk op dat bij deze methode initialisatie nodig is in de vorm van 
het inlezen van de eerste dataregel. Dit moet vóór de uitvoering 
van de lus plaatsvinden omdat anders de variabele REGNR, waarop 
aan het begin van de lus wordt getest, onbepaald zou zijn. Daarom 
is de lees-schrijfvolgorde hier anders dan bij de eerste methode; 
de initiële invoerwaarden moeten immers eerst worden afgedrukt 
alvorens weer een regel kan worden ingelezen. Na het inlezen van 
de tweede en volgende regel(s) wordt steeds naar de 'IF...GO TO'- 
statement teruggesprongen om te bepalen of de laatste dataregel is 
bereikt. 


Daar waar gewerkt wordt met een variabel aantal dataregels, 
komen beide hierboven gebruikte technieken veelvuldig voor. Voor 
grote hoeveelheden is de telmethode echter minder geschikt. De 
'IF...GO TO'-constructie is weliswaar omslachtiger, maar daar- 
entegen gemakkelijker en betrouwbaarder in het gebruik. Men 
behoeft daarbij immers geen dataregels te tellen, wat werkbespa- 
rend is en telvergissingen uitsluit. 


5.5 VOORBEELDEN VAN PROGRAMMALUSSEN 


In deze paragraaf worden enkele facetten van lussen aan de hand van 
programmavoorbeelden toegelicht. Elk programma produceert een 
zigzaglijn. 
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Het eerste programma: 


C DIT PROGRAMMA HEET WIGGEL 00000001 
INTEGER J í 00000002 

DO 55 Js 1, 3 00000003 

PRENT Ero wo 00000004 

PRINT #, ’ # ’ 00000005 

PRINT #, V o E: 00000006 

PRINT &, ° & ? 00000007 

55 CONTINUE 00000008 
STOP 00000009 

END 00000010 


Dit programma geven we de naam WIGGEL.. Het drukt de volgen- 
de zigzaglijn af: 


Toelichting 


De kern van de lus (regels 4 tot en met 7) wordt driemaal uitgevoerd. 
Bij de eerste uitvoering heeft J de waarde 1. Daarbij worden de 
eerste vier asterisktekens afgedrukt. De volgende serie van vier 
asterisktekens wordt afgedrukt bij J=2, en de laatste serie bij J=3. 
Na het afdrukken van het laatste asteriskteken krijgt J de waarde 4, 
en de uitvoering van de lus wordt beëindigd. 


De teller-definitie 


In dit programma wordt de variabele J voor slechts één doel 
gebruikt: om aan te geven hoeveel maal de lus moet worden uitge- 
voerd. Regel 3 betekent in wezen: 'herhaal deze lus driemaal', 
Zouden we deze statement vervangen door: 


DO. 55 J =9, 18, 2 


x Voor het benoemen van een programma wordt de in hoofdstuk 4 gedefinieerde 
identificator gebruikt. Men kan dit ook aan de computer 'bekend maken' met 
behulp van de PROGRAM-statement. In dit geval: PROGRAM WIGGEL. De 
PROGRAM-statement maakt geen deel uit van de SF/k-subset. 
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dan zou het programma precies dezelfde uitvoer leveren. Het enige 
verschil zou zijn dat J tijdens het afdrukken van de asterisktekens 
de waarden 9, 11 en 13 doorloopt. Dit komt in de uitvoer echter niet 
tot uitdrukking. Hetzelfde zou overigens het geval zijn bij vervan- 
ging van regel 3 door: 


DO 55 .J = B, 14, 2 


Ook hier zou J tijdens het afdrukken van de asterisktekens de waar- 
den 9, 11 en 13 doorlopen. De opgegeven eindwaarde (14) wordt 
hierbij niet exact bereikt, maar wordt na de derde lusdoorgang wel 
overschreden (J wordt 15). De lus wordt dientengevolge beëindigd. 


Hoewel bovenstaande wijzigingen in de parameters van de DO- 
statement geen wezenlijke veranderingen inhouden, moet het gebruik 
van dergelijke mogelijkheden worden afgeraden. De betekenis 
‘herhaal deze lus driemaal' komt nu eenmaal duidelijker en natuur- 
lijker uit de verf als J de waarden 1, 2 en 3 doorloopt in plaats van 
9, 11 en 13, 


Een alternatief 


We herschrijven WIGGEL nu met behulp van een 'IF...GO TO'- 
constructie, Het nieuwe programma noemen we WAGGEL. 


C DIT PROGRAMMA HEET WAGGEL 00000001 
INTEGER J 00000002 

' Aia a 00000003 

55 IF (J .GT. 3) GOTO 100 00000004 
PRINT #, '# ?’ 00000005 

PRINT t, e? 00000006 

PRINT #, ’ «’ 00000007 

PRINT #, ’ « ’ 00000008 

ded. 1 00000009 

GOTO 55 00000010 

100 CONTINUE 00000011 
STOP 00000012 

END 00000013 


Dit programma vertoont veel overeenkomst met het vorige. Regels 
3, 4 en 9 van WAGGEL kunnen samen gezien worden als het equiva- 
lent van regel 3 van WIGGEL. Omdat deze regel in één oogopslag 
laat zien dat de lus driemaal herhaald wordt, verdient WIGGEL de 
voorkeur boven WAGGEL. Van WAGGEL maken we desondanks nog 
even gebruik om enkele algemene facetten van 'IF...GO TO'-lussen 
nader toe te lichten. 
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De teller bij de ’IF...GO TO’-lus 
Stel dat regel 9 van WAGGEL: 
J=J+1 


opgeschoven wordt tussen regels 4 en 5. J wordt dan weliswaar 
eerder veranderd, maar voor de afgedrukte zigzaglijn heeft dit geen 
gevolgen. Bij het afdrukken van de eerste serie asterisktekens zal 
J de waarde 2 hebben, bij het afdrukken van de volgende serie de 
waarde 3, en bij de laatste serie de waarde 4. Hoewel J vóór het 
afdrukken van de laatste serie de eindwaarde 3 overschrijdt, wordt 
de uitvoering van de lus niet beëindigd. Het testen op deze eind- 
waarde vindt immers pas plaats als de programmabesturing terug- 
keert tot regel 4. Dit illustreert het feit dat in een 'IF... GO TO'- 
lus de conditie slechts eenmaal per lusdoorgang -en wel aan het 
begin- wordt getest. 


Oneindige lussen 
Stel dat regel 9 van WAGGEL per abuis wordt veranderd in: 
J=J-1 


In plaats van een plusteken staat er nu een minteken. Deze ogen- 
schijnlijk kleine fout heeft catastrofale gevolgen. J krijgt nu achter- 
eenvolgens de waarden 1, 0, -1, -2, enzovoort, en bereikt -althans 
in principe- nooit de eindwaarde 3. Voor elke waarde van J wordt 
een serie van vier asterisktekens afgedrukt. Omdat onmogelijk vol- 
daan kan worden aan de conditie J. GT. 3 wordt een eindeloze zigzag- 
lijn geproduceerd. Men spreekt hierbij van een oneindige lus. Ge- 
lukkig stelt men in een computersysteem doorgaans grenzen aan de 
hoeveelheid uitvoer die een programma mag produceren, en aan de 
maximale executietijd. Na verloop van tijd, afhankelijk van welke 
van deze externe begrenzingen of 'guillotines' het eerst wordt 
bereikt, komt het programma dus al waggelend en zigzaggend aan 
een roemloos einde, De trieste afloop wordt meestal met een 
gedrukte foutmelding aangegeven, bijvoorbeeld 'MAXIMUM EXECU- 
TION TIME EXCEEDED' (= maximale executietijd overschreden) of 
'MAXIMUM OUTPUT LINES EXCEEDED' (= maximum aantal uit- 
voerregels overschreden). 
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5.6 TWEEWEGVERTAKKINGEN IN DE 
PROGRAMMABESTURING 


Tot nu toe is behandeld hoe een sequentiële (lineaire) besturings- 
structuur kan veranderen in een lusvormige (cyclische) structuur. 
Naast lineaire en cyclische besturingsvormen bestaat de mogelijk- 
heid van vertakkingen in de programmabesturing. Afhankelijk van 
een bepaalde beslissing kiest de computer daarbij een bepaalde 'tak! 
van het programma. Zo'n tak kan uit één of meer statements 
bestaan. We beperken ons voorlopig tot vertakkingen met twee 
keuzemogelijkheden: de tweewegvertakking. 


Een voorbeeld 


Stel dat een variabele KLASA het aantal leerlingen in een bepaalde 
klas van een school aangeeft (klas A). Leerlingen moeten in klas A 
worden ingedeeld als hun cijfer voor computerkunde (CYFER) 8 of 
hoger is. Anders worden ze ingedeeld in klas B (KLASB). De klas 
waarin een leerling wordt ingedeeld, en het aantal leerlingen in elke 
klas kan met de volgende statement worden bepaald: 


IF (CYFER.GE.8) THEN 
KLASA = KLASA + 1 


KLASB + 1 


5 
5 
o 


De 'END IF' sluit deze 'IF. .. THEN. .. ELSE'-constructie op dezelf- 
de wijze af als de CONTINUE-statement bij de 'IF... GO TO'. 


De 'IF... THEN., ..ELSE' heeft een vertakking in twee alternatieve 
'wegen' tot gevolg: een weg waarin het aantal leerlingen van klas A 
wordt bepaald (KLASA = KLASA + 1) en een weg voor het bepalen 
van het aantal leerlingen in klas B (KLASB = KLASB +1). Afhanke- 
lijk van de conditie CYFER. GE. 8 wordt één van deze wegen gekozen: 
de eerste weg als de conditie waar is, de andere weg als de conditie 
onwaar is. Na executie van hetzij de ene, hetzij de andere tak, 
wordt de besturing van het programma hervat bij de statement die 
volgt op de 'END IF'!. 


Nog enkele algemene opmerkingen over de ’IF...THEN...ELSE’ 


In FORTRAN 77 noemt men de 'IF.,. THEN. ,. ELSE! ook wel de 
‘blok IF' ter onderscheid van de IF-statement die in voorwaardelijke 


89 


lussen voorkomt. Net als bij deze lussen moet de conditie ook bij 
de IF... THEN... ELSE tussen haakjes worden opgegeven. Na het 
sleutelwoord THEN volgt minstens één statement. Wenst men geen 
alternatieve tak dan moet de ELSE achterwege worden gelaten. Met 
de volgende statement zou men bijvoorbeeld het saldo van een bank- 
rekening dat minder dan een gulden bedraagt op nul kunnen stellen: 


IF ( SALDO.LT. 1.0) THEN 
SALDO = 0.0 
END IF 


Het ontbreken van de ELSE betekent in dit verband dat saldi hoger 
dan of gelijk aan een gulden niet op nul worden gesteld. 


5.7 MEERVOUDIGE VERTAKKINGEN IN DE 
PROGRAMMABESTURING 


In de vorige paragraaf hebben we gezien hoe een lineaire besturings- 
stroom in twee takken kan worden gesplitst, die vervolgens in een 
punt weer samenkomen, Hoe gaan we nu te werk indien er meer dan 
twee vertakkingen nodig zijn? We zullen dit illustreren aan de hand 
van een driewegvertakking, dat wil zeggen een keuzemogelijkheid 

uit drie verschillende programmatakken., 


Een driewegvertakking 


Als voorbeeld nemen we een programma dat stemmen telt bij een 
verkiezing. Stel er zijn drie politieke partijen genoemd rechts, 
links en midden, en stel dat een stem op een van deze partijen 
wordt uitgebracht door middel van de waarde 1, 2 respectievelijk 
3 in een dataregel. Het volgende programma leest de dataregels, 
telt het aantal op elke partij uitgebrachte stemmen, en telt het 
totaal aantal uitgebrachte stemmen. De laatste regel dient als 
sluitregel en bevat de waarde -1 (zie p. 90). 


In dit programma komen twee verschillende [F-constructies voor. 
De eerste is een 'IF... GO TO... CONTINUE'-constructie, waar- 
mee een programmalus wordt vastgelegd. De lus wordt uitgevoerd 
totdat de sluitregel wordt gelezen. In dat geval is de conditie 
STEM.EQ.-1 waar, en de uitvoering van de lus wordt beëindigd. 


Zolang de sluitregel nog niet is bereikt, bepaalt het programma door 
middel van drie 'IF... THEN'-constructies of er een 1-, 2- of een 
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C DIT PROGRAMMA TELT STEMMEN 


INTEGER STEM, RECHTS, LINKS, MIDDEN, TOTAAL 
RECHTS = 0 
LINKS = 0 
MIDDEN = 0 
READ #, STEM 
25 IF (STEM .EQ. -1) GOTO 40 
IF (STEM .EQ. 1) THEN 
RECHTS = RECHTS + 1 
ELSE 
IF (STEM .EQ. 2) THEN 
LINKS = LINKS + 1 
ELSE 
IF (STEM .EG. 3) THEN 
MIDDEN = MIDDEN + 1 
ENDIF 
ENDIF 
ENDIF 
READ #, STEM 
GOTO 25 
40 CONTINUE 
TOTAAL = RECHTS + LINKS + MIDDEN i 
PRINT #, ‘RECHTS’, ’ LINKS’, ’ MIDDEN’, ’ OPKOMST’ 
PRINT #, RECHTS, LINKS, MIDDEN, TOTAAL 


STOP 
END 
gegevens: 
3 
1 
2 


eee tiet STEMKAARTEN MET WAARDE i; 2 OF 3 ### 


3-stem is uitgebracht, en voegt deze stem bij het totaal voor de des- 
betreffende partij. Merk op dat iedere 'IF... THEN! een eigen 

'END IF'-afsluiting nodig heeft. Vandaar de opeenvolging van drie 
END IF'-statements na de derde 'IF...THEN'. Merk ook op dat 
ongeldige stemmen niet worden geteld. Deze zou men kunnen signa- 
leren met de toevoeging: 


ELSE 
PRINT x, 'ONGELDIGE STEM', STEM 


direct na de toekenning MIDDEN = MIDDEN + 1. Hierdoor zou een 
vierwegvertakking ontstaan. Blanco stemmen (dat wil zeggen blanco 
dataregels) worden daarbij overigens als ongeldig aangemerkt. 
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Een alternatief 


De minimale constructie voor een driewegvertakking zou een 
IF... THEN... ELSE'-statement zijn die in de ELSE-tak van een 
andere 'IF... THEN... ELSE' is ondergebracht. Dergelijke con- 
structies, waarbij een of meer statements van hetzelfde type opge- 
nomen worden in het bereik van een andere statement van hetzelfde 
type noemt men nesten. De 'IF... THEN... ELSE '-statement wordt: 


IF(STEM.EQ.1) THEN 
RECHTS = RECHTS + 1 
ELSE 
IF(STEM. EQ. 2) THEN 
LINKS = LINKS + 1 
ELSE 
MIDDEN = MIDDEN + 1 
END IF 
END IF 


Eventuele ongeldige stemmen worden hierbij onder het (in dit geval 
aanvechtbare) motto van de gulden middenweg toebedeeld aan 
MIDDEN. 


Nog een alternatief 


Ook hier weer het nesten van de ene IF... THEN... ELSE binnen de 
andere. In het algemeen verdient het echter de voorkeur de tweede 
IF... THEN... ELSE onder te brengen in de ELSE-tak in plaats van 
in de THEN-tak. 


IF(STEM.LT.3) THEN 
IF(STEM.LT.2) THEN 
RECHTS = RECHTS + 1 


ELSE 
LINKS = LINKS + 1 
END IF 
ELSE 
MIDDEN = MIDDEN + 1 
END IF 


Merk op dat we een ELSE onmiddellijk onder de bijbehorende IF 
coderen om de ‘geneste! structuur duidelijk tot uitdrukking te bren- 
gen. 
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Uitbreiding van programmatakken 


In de THEN- of ELSE-tak van een IF... THEN... ELSE-constructie 
kunnen meerdere statements worden opgenomen, mits deze state- 
ments ‘executable! zijn. Van de tot nu toe behandelde statements 
zijn de volgende 'executable': 


- de toekenningsstatement, 

- de READ-statement, 

- de PRINT-statement, 

- de DO-statement, 

- de 'IF...GO TO'-statement, 

- de 'IF... THEN. .. ELSE'-statement, 
- de CONTINUE -statement. 


5.8 INSPRINGENDE PROGRAMMATEKST 


Om de geneste structuur van IF...THEN. ..ELSE-constructies dui- 
delijk weer te geven hebben we in de programma's van dit hoofdstuk 
de statements volgens een bepaald systeem laten inspringen. Daar- 
bij is iedere ELSE en iedere END IF onder de bijbehorende IF 
geplaatst, en zijn de statements van de verschillende takken iets 
verder naar rechts verschoven. Ook bij de DO- en 'IF...GO TO'- 
lussen is een soortgelijk systeem toegepast. 


De structuur die hierdoor ontstaat kan men vergelijken met alinea's 
of paragraafindelingen in geschreven tekst. We noemen dit dan ook 


paragraferen. 


Goed paragraferen levert een belangrijke bijdrage tot de begrijpe- 
lijkheid van een programma, en is een absolute vereiste bij 
gestructureerd programmeren. Voor het paragraferen bestaan 
echter geen vaste regels, Belangrijk is in ieder geval het kiezen 
en consequent toepassen van een goed paragraferingssy steem. 


5.9 SAMENVATTING 


In dit hoofdstuk zijn twee soorten statements ingevoerd: enerzijds 
statements die de herhaling van andere statements mogelijk maken, 
en anderzijds een statement waarmee een selectie uit verschillende 
alternatieve programmatakken kan worden gemaakt. Behandeld werd 
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ook het begrip conditie. Condities worden als criterium gebruikt om 
programmalussen op het gewenste moment te laten beëindigen, en 
als selectiecriterium bij alternatieve programmatakken. Ze worden 
gesteld met behulp van relationele en logische operatoren. 


De volgende kernbegrippen kwamen in dit hoofdstuk aan de orde. 


lus: Een programmaconstructie waarmee 
een of meer statements meerdere ma- 
len achtereenvolgens kunnen worden 
uitgevoerd. SF/k kent twee soorten 
lussen: de teller-bestuurde en de voor- 
waardelijke lus. 


teller-bestuurde lus: Heeft de vorm: 


DO label teller = m1, m2[, m3] 


_statement(s) 
label CONTINUE 


Hierin is: 


- ‘teller! een INTEGER variabele, 
- ml de beginwaarde van de teller, 
- m2 de eindwaarde van de teller, 
- m3 de stapwaarde van de teller. 


De stapwaarde is tussen blokhaken ge- 
noteerd om aan te geven dat hij faculta- 
tief is. Bij het ontbreken van deze 
parameter wordt de verstekwaarde 1 
aangenomen, De parameters ml, m2 
en m3 zijn in SF/k INTEGER-constan- 
ten of -variabelen; de waarde moet 
groter zijn dan nul. Dit impliceert dat 
de beginwaarde niet groter mag zijn 
dàn de eindwaarde; wordt hieraan niet 
voldaan, dan wordt de lus niet uitge- 
voerd. 


voorwaardelijke lus: Heeft de vorm: 


label 1 IF (conditie) GO TO label 2 
statements 
GO TO label 1 

label 2 CONTINUE 
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relationele operator: 


logische operator: 


sluitregel: 


De conditie wordt aan het begin van 
iedere lusdoorgang getest. Is deze 
conditie onwaar, dan worden de state- 
ments binnen de lus uitgevoerd. Via de 
GO TO label 1 komt de besturing weer 
aan het begin van de lus terecht. De 
uitvoering van de lus eindigt als aan de 
conditie wordt voldaan. 


Een van de vormen: 


‚LT. (kleiner dan) 

‚LE. (kleiner dan of gelijk aan) 
‚EQ. (gelijk) 

‚NE. (niet gelijk) 

.GE. (groter dan of gelijk aan) 
.GT. (groter dan) 


Wordt gebruikt als deel van een rela- 
tionele expressie om de waarde van 
twee rekenkundige grootheden met el- 
kaar te vergelijken. Het resultaat van 
de expressie is de logische waarde 
waar of onwaar. De relationele ex- 
pressie is een eenvoudige vorm van de 
logische expressie. 


Een van de vormen: 


De operatoren AND. en „OR. kunnen 
worden gebruikt om twee of meer rela- 
tionele expressies te combineren tot 
een samengestelde logische expressie 
met de waarde waar of onwaar. De 
operator . NOT. heeft de omkering 
van een logische waarde tot gevolg. 


Een speciale dataregel die het einde 
van een invoerbestand of een serie 
invoerwaarden signaleert. Hij bevat 
een fictieve waarde, en wordt aan 

het einde van het bestand geplaatst. 
Het programma stopt met de verwer- 
king van het bestand als het door mid- 
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del van een speciale testopdracht de 
fictieve invoerwaarde ontdekt, Het 
einde van de verwerking van een be- 
stand kan ook door middel van een met 
de hand uitgevoerde telling worden be- 
paald, maar dit is minder betrouwbaar 
en minder efficiënt. 


IF... THEN, .. ELSE'- Heeft de vorm: 
statement: 
IF (conditie) THEN 
statement (s) 
ELSE 
statement (s) 
END IF 


De blokhaken geven aan dat het ELSE- 
gedeelte kan worden weggelaten. Is de 
conditie waar, dan wordt het eerste 
statement (of de eerste groep state- 
ments) uitgevoerd; anders, indien aan- 
wezig, de statement(s) na de ELSE, In 
beide gevallen wordt de besturing her- 
vat bij de statement na de END IF. De 
statements na 'THEN' en 'ELSE' kun- 
nen onder andere toekenningen zijn, 
READ- of PRINT-statements, DO- 
statements, of een andere IF... THEN 
‚ELSE, 


paragraferen Het inspringen bij programmateksten 
als visueel hulpmiddel ter verduidelij- 
king van de programmastructuur. 
Wordt onder andere toegepast bij lus- 
sen en 'IF... THEN... ELSE '-construc- 
ties. 
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5.10 OPGAVEN 


1. Stel I en J zijn INTEGER-variabelen met de waarden 6 en 12, 
Welke van de volgende condities (logische expressies) zijn waar? 
a Zw ROE J 
b. 2«I-1.LT.J 
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2. Het volgende programma berekent het bevolkingscijfer van een 
muizenfamilie over een periode van twee jaar, uitgaande van een 
oorspronkelijk bevolkingscijfer van 2 en een verdubbeling van het 
bevolkingscijfer elke 2 maanden. Wat drukt het programma af? 


C DIT PROGRAMMA LAAT EEN BEVOLKINGSEXPLOSIE ZIEN 


INTEGER MAAND, AANTAL 

AANTAL = 2 

PRINT #, ’ MAAND’, ’ BEVOLKING’ 

DO 12 MAAND = 2, 24, 2 
PRINT #, MAAND, AANTAL 
AANTAL = 2 # AANTAL 

12 CONTINUE 
STOP 
END 


8. Iemand heeft als appeltje voor de dorst een bedrag van f 500, - 
in een oude sok weggestopt. Schrijf een programma om te bere- 
kenen hoe groot dit bedrag na een periode van 15 jaar zou moeten 
zijn om niet aan koopkracht in te boeten, uitgaande van een infla- 
tiepercentage van 12, Rond het bedrag af tot hele guldens. 


4. Ga het executieverloop van het volgende programma na. Geef 
daarbij aan welke waarden de variabelen tijdens het executiepro- 
ces aannemen, en welke uitvoer wordt geproduceerd. | 


30 
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DIT PROGRAMMA VERWERKT EXAMENCIJFERS 


INTEGER AANTAL, CIJFER, SOM 
SOM = 0 
READ #, CIJFER 
AANTAL = O 
IF (CIJFER .EG. -1) GOTO 30 
IF (CIJFER .GE. O .AND. CIJFER .LE. 10) THEN 
SOM = SOM + CIJFER 
AANTAL = AANTAL + 1 
ELSE 
PRINT #, ‘#+#FOUT: CIJFER = ’, CIJFER 
ENDIF | 
READ #, CIJFER 
GOTO 20 
CONTINUE 
PRINT #, ‘GEMIDDELDE IS ’; 1.0 # SOM / AANTAL 
STOP 
END 


gegevens: 
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5. Schrijf een programma dat de volgende dataregels inleest en het 
rekenkundig gemiddelde berekent van: 
a. elk van de twee kolommen 
b. elke rij. 
Gebruik een 'teller' dataregel, of maak gebruik van een sluit- 


regel. 


92 88 
T5 62 
81 80 
55 60 
64 60 
81 80 


6. Bij een examen wordt een puntentelling van 0 t/m 100 gehanteerd. 
Schrijf een programma dat de resultaten van een willekeurig 
aantal kandidaten voor dat examen inleest en de volgende bereke- 
ningen uitvoert: 
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a. het gemiddelde examencijfer, afgerond tot hele punten 

b. het totaal aantal kandidaten 

c. het aantal afgewezen kandidaten, er van uitgaande dat een 
resultaat van minder dan 50 punten als onvoldoende wordt 
aangemerkt, 

Markeer het einde van het invoerbestand met een dataregel 

met de waarde 999, en zorg voor passende tekst bij de 

uitvoer. 


Beantwoord de volgende vragen: 

a. Wat gebeurt er als een puntenaantal van 74 per abuis wordt 
ingetoetst als 7 4? 

b. Wat zijn de gevolgen van het weglaten van de sluitregel 
(eventueel proefondervindelijk vaststellen) ? 

c. Hoe reageert het programma op de afwezigheid van data- 
regels, aangenomen dat de sluitregel wel aanwezig is? 

d. Wat gebeurt er als de puntenaantallen 62 en 93 zonder tus- 
senliggende spatie(s) worden ingetoetst (dus als 6293)? 


Test het programma met de volgende invoerwaarden: 


85 74 44 62 93 41 69 73 999 


. Ten gevolge van heersende economische verhoudingen wordt de 


Nederlandse markt overspoeld met waspoeder van Engelse make- 
lij. Het produkt wordt aan de consument aangeboden in verschil- 
lende soorten verpakkingen waarop het gewicht in de Angelsak- 
sische eenheden 'pound' en ‘ounce! wordt vermeld. Schrijf een 
programma om het aangegeven gewicht in grammen om te zetten 
en, gegeven de prijs per verpakking in guldens, de prijs per 
kilogram te berekenen, afgerond tot hele centen. Druk de resul- 
taten af in de vorm van een tabel met de volgende kolomtitels: 


pounds ounces prijs per gewicht prijs per 
verpakking in gram gram 


De gegevens van de verschillende soorten verpakkingen zijn: 


pounds ounces prijs in HFL 


5. 98 
11.25 
12. 50 
14, 65 
17, 95 


NP OON 
Do A O0 © OO 


en 


10. 
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Gebruik in plaats van een sluitregel een 'telregel' om het 
aantal te verwerken dataregels aan te geven. 


Beantwoord de volgende vragen: 

a. Hoe reageert het programma als de regel met de gegevens 
5, 0 en 11.25 wordt ingetoetst als: 
5 11. 25 

b. Is het mogelijk dit programma zo te construeren dat 
bepaalde fouten in het invoerbestand ontdekt worden? 


Hoe dan, of waarom niet? 


Aanwijzingen: 1 pound = 16 ounce (avoirdupois) 
2, 2046 pound = 1 kilogram 


Schrijf een programma om de waarde van y te tabuleren voor 


kt OCR OB. ces KO, als; 
x2 xe x10 
vel E Ee eee + Tor 


Opmerking: 2! (2 faculteit) betekent 2 «1, 
3! (3 faculteit) betekent 3 x 2 x 1 enzovoort. 
0! is gedefinieerd als 1 


Schrijf een programma om de gehele getallen tussen 1 en 100 
die zuivere kwadraten zijn te bepalen en af te drukken. 


Schrijf een programma om de lengte van de zijden A, B en C van 

een driehoek in te lezen en te bepalen welke van de volgende 

eigenschappen de driehoek heeft. 

a. Er is geen driehoek mogelijk. 

b. De driehoek is gelijkbenig. 

c. De driehoek is gelijkzijdig. 

d. De driehoek is rechthoekig. 

e. De driehoek is noch gelijkbenig, noch gelijkzijdig noch recht- 
hoekig. 


6 HET STRUCTUREREN VAN DE 
PROGRAMMABESTURING 


In het vorige hoofdstuk zijn drie constructies behandeld waarmee de 
‘normale! lineaire besturingsstructuur van een programma doorbro- 
ken kan worden. Twee constructies -de teller-bestuurde DO en de 
IF...GO TO- hadden betrekking op lussen. De andere constructie 
-de IF... THEN. .. ELSE- werd gebruikt voor het scheiden van de 
programmabesturing in alternatieve takken, Het systematische 
gebruik van deze constructies is een essentieel onderdeel van ge- 
structureerd programmeren. In dit hoofdstuk gaan we nader op deze 
materie in, 


6.1 GRONDSTRUCTUUR VAN PROGRAMMALUSSEN 


Bij een eerste confrontatie met het begrip programmalus is het vaak 
moeilijk in te zien dat alle lussen, ongeacht hoe ze geprogrammeerd 
zijn, in wezen dezelfde structuur hebben, In deze paragraaf zetten 
we de belangrijkste kenmerken daarom nog even op een rijtje. 


Definitie van het beginpunt van de lus 


Voor de teller-bestuurde lus geldt dat het beginpunt van de lus de 
statement is die direct op de DO-statement volgt. De DO-statement 
zelf maakt dus geen deel uit van de te herhalen lusstatements., Het 
aanpassen van de teller is een interne aangelegenheid van de compu- 
ter zelf. 


Bij de voorwaardelijke lus ligt dit anders. Daar wordt de 'IF... 

GO TO'-statement steeds bij het herhalingsproces betrokken. Deze 
statement is dan ook het beginpunt van de lus. De testvariabele in de 
conditie van de IF...GO TO dient vóór de eerste uitvoering van die 

statement gedefinieerd te zijn, en binnen de lus aangepast te worden. 
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Definitie van het eindpunt van de lus 


_ Onder eindpunt verstaan we de statement die bij een lusdoorgang het 
laatst wordt uitgevoerd. Bij de DO is dit een CONTINUE, aangege- 
ven met een label in de DO-statement. Bij de IF... GO TO is dit de 
'GO TO'-statement die aan de CONTINUE voorafgaat. Voor beide 
constructies geldt dat bij het bereiken van het eindpunt een bestu- 
ringsoverdracht plaatsvindt naar het beginpunt. 


Definitie van de besturingsvariabelen 


Onder besturingsvariabele (Engels: control variable) verstaan we 
een variabele die bepaalt hoeveel maal een lus wordt uitgevoerd. Bij 
de DO-statement functioneert de teller als besturingsvariabele. Bij 
de IF...GO TO kan er sprake zijn van meer dan één besturingsva- 
riabele. Het herhalen van de voorwaardelijke lus is immers afhan- 
kelijk van de conditie in de IF-statement zelf, en deze kan meerdere 
variabelen bevatten. 


Definitie van de besturingsoverdracht bij beëindiging van de lus 


Strikt genomen vindt de besturingsoverdracht bij de DO-statement 
plaats aan de statement die op de afsluitende CONTINUE volgt. Bij 
de IF...GO TO vindt de overdracht plaats aan de afsluitende 
CONTINUE zelf. Omdat een CONTINUE-statement geen wezenlijke 
actie tot gevolg heeft, kan men in beide gevallen gevoeglijk stellen 
dat de besturing bij het beëindigen van een lus overgedragen wordt 
aan de statement die op de CONTINUE volgt. 


De besturingsoverdracht vindt bij de IF, ..GO TO plaats als de IF- 
conditie 'waar' bevonden wordt, en bij de DO als de waarde die de 
teller na een lusdoorgang heeft, vermeerderd met de waarde van de 
stapparameter, gelijk is aan of groter is dan de waarde van de eind- 
parameter. 


6.2 VOORTIJDIGE BEËINDIGING VAN LUSSEN 


Het verlaten van een lus dient in SF/k bij een DO-lus alleen plaats 
te vinden door het bereiken of overschrijden van de eindwaarde, en 
bij een voorwaardelijke lus door het voldoen aan de conditie in de 
'IF...GO TO'-statement. Formeel geldt deze bepaling in 
FORTRAN 77 niet. Daar is het onbeperkt gebruik van 'GO TO'- 
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statements toegestaan, waardoor de uitvoering van een lus op elk 
gewenst moment -ook vóór de normale beëindiging- door een 
sprong buiten de lus afgebroken kan worden. Het ongebreidelde 
gebruik van de GO TO wordt echter in strijd geacht met de princi- 
pes van gestructureerd programmeren, en wordt om deze reden in 
SF/k aan banden gelegd. 


Het voortijdig verlaten van een lus hangt overigens meestal met een 
tweede conditie samen. In dit geval verdient het gebruik van de IF 
...GO TO voorkeur boven de DO, Door middel van logische opera- 
toren kan de tweede conditie (en eventueel ook meer condities) in de 
'IF...GO TO'-statement zelf worden ingebouwd, waardoor de 
beschreven besturingsstructuur intact blijft, In paragraaf 6. 7 wordt 
hierop nader ingegaan. 


6.3 STROOMSCHEMA’S 


Een stroomschema (Engels: flowchart) is een visuele weergave van 
de inhoud en besturingsstructuur van een programma. In zo'n sche- 
ma wordt gebruik gemaakt van genormaliseerde symbolen’, die 
bepaalde soorten programma-opdrachten weergeven, Zo kent men 
onder andere een rechthoekig symbool voor algemene handelingen 
zoals toekenningen, en een ruitvormig symbool (in de praktijk 

veelal 'dropje' of 'wiebertje' genoemd) voor beslissingen. In het 
symbool geeft de programmeur een korte beschrijving van de desbe- 
treffende opdracht, Het verloop van de programmabesturing tussen 
de opdrachtsymbolen wordt met behulp van gerichte verbindingslijnen 
aangegeven. Ter illustratie geven we hieronder enkele van de behan- 
delde besturingsconstructies in stroomschemavorm weer. 


Ee desbetreffende symbolen zijn door de International Organization for 
Standardization (ISO) vastgelegd in de internationale norm ISO 1028 'Informa- 
tion Processing Flowchart Symbols", die in december 1967 in Nederland 
werd overgenomen als NEN 3283 "Automatische informatieverwerking. Sym- 
bolen voor schema's", Internationaal overleg ten aanzien van de wijze waar- 
op de symbolen bij voorkeur in stroomschema's zouden dienen te worden 
opgenomen leidde in 1973 tot de internationale norm ISO 2636 "Conventions 

for incorporating flowchart symbols in flowcharts". Met enkele aanvullingen 
is deze norm in oktober 1975 door het Nederlands Normalisatie-instituut 
gepubliceerd als Nederlandse Praktijkrichtlijn NPR 3592. Voorts bestaat 
sinds november 1979 de Nederlandse norm NEN 1422 "Automatische gege- 
vensverwerking. Programmastructuurdiagrammen (PSD)'', waarin een aan- 
tal typen diagrammen voor het weergeven van de structuur van programma's 
is vastgelegd. 
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Het 'IF... THEN... ELSE'-schema 


conditie 
waar 


conditie 
onwaar 


test de 
conditie in de 
'IF' 


statements na statements na 
'THEN' 'ELSE' 


volgende 
statement 
Het 'IF... GO TO'-schema 


initialisatie 


test de 
conditie in de 
'IF' 


waar 


onwaar 


kern van de lus, 
waarbij inbegrepen 

het aanpassen van de 
variabele(n) genoemd 
in de IF-conditie 


statement na 
CONTINUE 
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Het stroomschema voor de teller-bestuurde lus heeft dezelfde vorm, 
met dien verstande dat er bij de terugkoppeling naar het beslissings- 
symbool een extra symbool nodig is voor het ophogen van de teller. 


Uitgebreidere stroomschema’s 


De bovenstaande schema's zijn basisschema's. Met behulp daarvan 
kan men, uitgaande van de 'gewone!' lineaire statementuitvoering, 
algemene stroomschema's samenstellen. Daarbij kan elk recht- 
hoeksymbool vervangen worden door een opeenvolging van recht- 
hoeksymbolen, of door een van de basisschema's zelf. Merk op dat 
elk basisschema slechts één ingang en één uitgang heeft. Dit is van 
groot belang voor een goede programmastructuur. 


Het gebruik van stroomschema’s 


Het gebruik van stroomschema's is een van de eerste technieken 
geweest om de ingewikkeldheid van het programmeren tot aanvaard- 
bare proporties terug te brengen. Het ontwerpen van een stroom- 
schema werd (en wordt veelal nog steeds) gezien als een van de eer- 
ste stappen bij het oplossen van een programmeerprobleem. 


Als we ons bij het veranderen van de normale lineaire uitvoering 
van statements beperken tot de in dit hoofdstuk aangedragen stan- 
daardmethoden (de twee lusvormen en de 'IF... THEN. .. ELSE'- 
constructie), dan is er echter weinig aanleiding om deze schema- 
techniek te gebruiken. Het programma wordt dan als het ware uit 
gestandaardiseerde bouwelementen opgebouwd, en vormt in zekere 
zin zelf een stroomschema. Dit geldt vooral als een zindelijke para- 
grafering is toegepast. 


6.4 PROBLEMEN BĲ HET GEBRUIK VAN LUSSEN 


Bepaalde fouten komen bij het gebruik van lussen vaak voor, Wel is 
de kans op fouten bij de teller-bestuurde lus kleiner dan bij voor- 
waardelijke lussen. Bij teller-bestuurde lussen wordt het initialise- 
ren en aanpassen van de teller -een van de meest voorkom ende 
problemen- door de DO-statement zelf geregeld, waardoor proble- 
men op dit gebied tot een minimum beperkt blijven. Het komt echter 
wel voor dat variabelen die als begin-, eind- of stapparameter func- 
tioneren niet worden geïnitialiseerd. Hetzelfde geldt voor andere 
variabelen die in het werkgebied van een DO worden gebruikt. 
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Voorbeelden: DO label I = 1, N 
waarbij N nog onbepaald is, of: 


DO label I = 1, 10 
READ *, GETAL 
SOM = SOM + GETAL 


waarbij SOM nog onbepaald is. 


Een andere mogelijke fout bij DO-lussen is het zelf veranderen van 
de waarde van de teller tijdens de uitvoering van de lus. Dit is noch 
in SF/k noch in FORTRAN 77 toegestaan. 


Zoals eerder vermeld, was het een belangrijke beperking van 
FORTRAN 66 dat de begin-, eind- en stapparameters van DO- 
statements positieve INTEGER-waarden moesten hebben. Terugtel- 
len door middel van een negatieve stapwaarde bijvoorbeeld, was 
niet mogelijk. In FORTRAN 77 zijn de bepalingen ten aanzien van 
deze parameters soepeler, maar terwille van de eenvoud en de com- 
patibiliteit zijn ze in SF/k gehandhaafd. 


6.5 NESTEN VAN LUSSEN 


Zoals in het vorige hoofdstuk al even is aangestipt, kan men in de 
kern van een lus een andere lus definiëren, De tweede lus wordt dan 
als het ware omvat door de eerste, Men spreekt dan van een 'binnen- 
lus' die genestl is in een 'buitenlus', Het verschijnsel 'nesten' kan 
zowel bij de teller-bestuurde lus als de voorwaardelijke lus voorko- 
men. In deze paragraaf illustreren we het nesten aan de hand van de 
teller-bestuurde lus. 


Voorbeeld 


Als voorbeeld gaan we uit van een programma dat het gemiddelde 
puntenaantal berekent van kandidaten die een viertal examens hebben 
afgelegd. Het programma is gebaseerd op de volgende veronderstel- 
lingen: 


1 Afkomstig van het Engelse werkwoord 'to nest' (= nestelen). De term sluit 
aan bij het verouderde Nederlandse werkwoord 'nesten'. 
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a. Elk examencijfer wordt vastgelegd op één dataregel en bestaat 
uit een geheel getal van 0 tot en met 100. | 

b. De vier dataregels waarin de resultaten van één kandidaat zijn 
vastgelegd, worden voorafgegaan door een regel met het exa- 
mennummer van de desbetreffende kandidaat. 

cC. Na iedere serie van 5 dataregels met gegevens van één kandi- 
daat volgt de serie van de volgende kandidaat. 

d. Het aantal kandidaten wordt aangegeven in een aparte data- 
regel die aan alle andere regels voorafgaat. 

e. Het gemiddelde puntenaantal wordt afgerond tot het dichtstbij- 
zijnde gehele punt. 


Hieronder wordt een programma voor dit probleem gegeven (p. 107). 
Het gaat hierbij om een testversie: het programma produceert ter 
controle (en onderwijl ook ter illustratie) enige extra, ongevraagde 
uitvoer, We beperken ons om praktische redenen tot drie kandida- 
ten. 


Toelichting 


Voor elke waarde van de I-teller wordt steeds de volledige binnenlus 
afgewerkt. Voor iedere I-waarde doorloopt J dus steeds opnieuw het 
bereik 1 t/m 4. In dit geval (AANTAL = 3) wordt de buitenlus dan 
ook 3 maal, en de binnenlus 12 maal uitgevoerd. Het programma 
levert de volgende uitvoer: 


55 55 
60 115 
65 180 
70 250 
205 63 
83 83 
81 164 
96G 260 
90 350 
208 88 
72 72 
68 140 
78 218 
81 299 
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programma: 
C DIT PROGRAMMA BEREKENT HET PUNTEN AANTAL 
C VAN IEDERE KANDIDAAT 


INTEGER AANTAL: I; SOM, GEM, CIJFER, J; EXNUM 
READ #, AANTAL 
DO 50 I = 1, AANTAL 
SOM = 0 
READ #*, EXNUM 
DO 40 J= 1, 4 
READ #, CIJFER 
SOM = SOM + CIJFER 
PRINT #, CIJFER, SOM 
40 CONTINUE 
GEM = SOM/4.0 + 0.5 
PRINT #, EXNUM, GEM 
50 CONTINUE 
STOP 
END 


gegevens: 


De statement: 
PRINT x, CYFER, SOM 


waarmee de extra uitvoer wordt geproduceerd, kan verwijderd wor- 
den als men zich van de goede werking van het programma heeft 
overtuigd. In het algemeen kan het gebruik van dergelijke controle- 
of 'debugging'-statements1 grote diensten bewijzen tijdens de pro- 
grammaontwikkeling. Men kan ze naderhand -zoals eerder opge- 
merkt- uitschakelen met een C in de eerste positie van de 
statement, in plaats van ze (fysiek) te verwijderen. 


lin hoofdstuk 14 komen we hierop terug. 
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Merk op dat in de opmaak van de programmatekst twee niveaus van 
inspringing zijn toegepast om de geneste structuur visueel tot uit- 
drukking te brengen. 


6.6 ANDERE FACETTEN 


We zullen nog enkele facetten van programmalussen illustreren aan 
de hand van een ander programma. Net als de programma's 
WIGGEL en WAGGEL van het vorige hoofdstuk produceert dit pro- 
gramma een zigzaglijn. Dit programma is echter ‘slimmer! dan de 
voorgaande: het is in staat zigzaglijnen van verschillende vormen 
en lengten te produceren. 


C DIT PROGRAMMA HEET ZIGZAG 


INTEGER HOR, VER, TEL, TUSSEN 
READ #, TEL, TUSSEN 
DO 250 HOR = 1, TEL 
PRINT #, '####’ 
DO 200 VER = 1, TUSSEN 
PRINT #, ‘+ f 
200 CONTINUE 
PRINT #, ‘aurea’ 
DO 225 VER = 1, TUSSEN 
PRINT #, ’ #’ 


225 CONTINUE 
250 CONTINUE 
STOP 
END 
gegevens: 
eK 


ES 


Het programma produceert met de gegeven invoerwaarden de 
onderstaande uitvoer. Op gelijke hoogte met de afgedrukte regels 
geven we de bijbehorende waarden van de tellers HOR (= horizon- 
taal) en VER (= verticaal). 
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HOR VER 

x xx ok x 
* t 1 
M 1 2 
x x x x 

* 1 1 

y 1 2 
x ok x x 
* 2 1 
* 2 2 
x x x x 

* 2 1 

* 2 2 
x x ok x 
‘ 3 1 
n 3 2 
x x x x 

* 3 1 

* 3 2 


Toelichting 


De eerste invoerwaarde (3) bepaalt het aantal malen dat de basisfi- 
guur: 


x 
* 
* 
x 


wordt afgedrukt. De tweede invoerwaarde (2) bepaalt de lengte van 
het verticale tussenstuk in de basisfiguur. 


Het programma maakt gebruik van twee afzonderlijke DO-lussen 
binnen de hoofdlus. Beide binnenlussen maken gebruik van de varia- 
bele VER als teller. Aangezien deze lussen onderling niet genest 
zijn, is dit niet bezwaarlijk. Iedere keer dat een van deze binnenlus- 
sen wordt uitgevoerd krijgt VER de waarde 1. 


Zoals het een goede FORTRAN-programmeur betaamt is elke lus 
afgesloten met een CONTINUE-statement. Het is een goede gewoonte 
deze CONTINUE's zo te 'labelen' dat de statementnummers in over- 
eenstemming zijn met de volgorde van de CONTINUE-statements in 
het programma, In ons voorbeeld komt de CONTINUE met label 200 
dus vóór de CONTINUE met label 225. Essentieel is dit echter niet. 
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Variaties 


Variaties in de af te drukken figuur kunnen eenvoudig worden ver- 
kregen door de waarden in de dataregel te veranderen. De volgen- 
de figuur wordt afgedrukt als beide waarden 1 zijn: 


HOR VER 

x x x x RET E S 

” 1 1 
*% ok ok ox 

+ 1 1 


We zouden ook soortgelijke programma's kunnen schrijven die ande- 
re figuren produceren, bijvoorbeeld een menselijk portret met ken- 
merken die van invoerwaarden (parameters) afhankelijk zijn: 

lachend of wenkbrauwfronzend, karige of overvloedige haardos, met 
of zonder knipoog enzovoort. Enige fantasie -zowel bij het schrijven 
van het programma als bij de interpretatie van de uitvoer- lijkt 
overigens bij deze kunstzinnige doch volkomen serieus bedoelde 
computertoepassing wel geboden. 


6.7 LUSSEN MET SAMENGESTELDE CONDITIES 


In sommige gevallen, bijvoorbeeld bij het optreden van een bijzonde- 
re situatie, kan het nodig zijn de uitvoering van een lus voortijdig 
te beëindigen, In plaats van één zijn er dan twee (of meer) condities 
die het verloop van de lus besturen, Aangezien het gebruik van 

'GO TO'-statements in SF/k aan strenge beperkingen onderhevig is 
(zie paragraaf 6.2) kan men in zulke gevallen geen gebruik maken 
van een teller-bestuurde lus, Zoals in paragraaf 6, 2 reeds werd 
opgemerkt, is men dan aangewezen op de 'IF,..GO TO'-construc- 
tie. De samengestelde conditie wordt daarbij in de 'IF...GO TO'- 
statement ingebouwd met behulp van de '. AND. '- en/of '. OR. '- 
operator. | 


Een voorbeeld 


Als voorbeeld nemen we een programma dat een serie dataregels, 
die positieve gehele getallen bevat, onderzoekt op het vóórkomen 
van een gegeven getal. Er wordt uitgegaan van één getal per data- 
regel. Als het gezochte getal voorkomt, moet de plaats daarvan in 
het bestand afgedrukt worden. Komt het getal niet voor dan moet 
een boodschap van die strekking worden afgedrukt. Het bestand 
wordt afgesloten met een sluitregel met de waarde -1. 
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C DIT PROGRAMMA ZOEKT EEN GEGEVEN GETAL IN EEN LIJST 


INTEGER DITISM, ISDITM, I 
READ #, DITISM 
READ #, ISDITM 
ke) 
50 IF (ISDITM .EQ. DITISM .OR. ISIDTM .EQ. =1) GOTO GO 
READ #, ISDITM 
IN an OE! 
GOTO 50 
60 CONTINUE 
IF (ISDITM .EG. DITISM) THEN 
PRINT #, ‘GETAL’, DITISM, ’ HEEFT RANGNUMMER’, I 


ELSE 
PRINT *, ‘GETAL’, DITISM, ‘KOMT NIET VOOR IN LIJST’ 

ENDIF 
STOP 
END 

gegevens: 

35 

12 

16 

25 

35 

40 

51 


-3 


Voor de gegeven invoerwaarden is de uitvoer van dit programma: 
GETA Lbbbbbbbbbbb35bHEEFTbRANGNUMMERbbbbbbbbbbbb4 


Merk op dat de waarde van de variabele ISDITM, die in de IF-condi- 
tie voorkomt, in de luskern wordt veranderd, en dat deze variabele 
vóór de uitvoering van de lus wordt geïnitialiseerd. In beide gevallen 
gebeurt dit door de opdracht: 


READ *, ISDITM 


eenmaal voor en eenmaal na de 'IF...GO TO'-statement. Merk ook 
op dat een teller (I) moet worden gebruikt om het rangnummer van 
de onderzochte getallen bij te houden. Deze teller wordt eveneens 
vóór de uitvoering van de lus geïnitialiseerd, en in de luskern ver- 
anderd. 
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6.8 ’IF….THEN.…..ELSE’-STATEMENTS MET 
SAMENGESTELDE CONDITIES 


Zoals in de 'IF...GO TO'-statement een samengestelde conditie 
kan worden ingebouwd, zo kan dat ook in de 'IF... THEN... ELSE'- 
statement. Hiervan kunnen we dankbaar gebruik maken om het nes- 
ten van 'IF... THEN... ELSE'-statements -dat onvermijdelijk tot 
meer ingewikkelde programmastructuren leidt- te voorkomen. 


Een voorbeeld 


Stel dat we over een bestand beschikken met leeftijden (in jaren) 
van een aantal mensen. Elke dataregel bevat één waarde. Het 
bestand wordt afgesloten met een sluitregel met de waarde -1. 
Gevraagd wordt het aantal volwassenen in de leeftijdscategorie 18 
tot en met 65 jaar te bepalen. Het volgende programma berekent 
dit aantal, en drukt het resultaat af. 


C DIT PROGRAMMA BEPAALT HET AANTAL MENSEN IN DE 
C LEEFTIJD VAN 18 T/M 65 JAAR 


INTEGER MENS, LFTIJD 
READ #, LFTIJD 
MENS = O 
20 IF (LFTIJD .EQ. -1) GOTO 30 
IF (LFTIJD .GE. 18 .AND. LFTIJD .LE. 65) THEN 
MENS = MENS + 1 
ENDIF 
READ #, LFTIJD 
GOTO 20 
30 CONTINUE 
PRINT #, ‘AANTAL MENSEN 18 T/M 65 JAAR = ‘, MENS 


STOP 
END 
gegevens: 
16 
25 
31 
12 
28 


69 
-$ 
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De uitvoer is: 


AANTAL MENSEN 18 T/M 65 JAAR = 3 


Ter vergelijking geven we ook nog de alternatieve -maar minder 
elegante- geneste 'IF,.. THEN '-constructie: 


IF (LFTIJD .GE. 18) THEN 
IF (LFTIJD .LE. 65) THEN 
MENS = MENS + 1 
ENDIF 
ENDIF 


6.9 SAMENVATTING 


In dit hoofdstuk zijn we verder ingegaan op de in hoofdstuk 5 geïntro- 
duceerde lussen en 'IF.,.THEN,.,ELSE'-constructies. Daarbij 
werden ook stroomschema's en 'GO TO'-statements besproken, 
gezien vanuit het oogpunt van gestructureerd programmeren in 
SF/k. Er werden voorbeelden gegeven van meer ingewikkelde lus- 
constructies en condities, De volgende kernbegrippen kwamen aan 
de orde. 


stroomschema: Een visuele weergave van de inhoud en 
besturingsstructuur van een program- 
ma, bestaande uit opdrachtsymbolen 
verbonden door middel van gerichte 
verbindingslijnen die de besturings- 
stroom weergeven. 


samengestelde conditie: Twee of meer enkelvoudige logische 
condities zoals LF TIJD. GE. 18 en 
LFTIJD. LE. 65 (ieder dus met de logi- 
sche waarde 'waar' of '‘onwaar'), die 
met behulp van de logische operatoren 
„AND. en/of .OR. tot één logische ex- 
pressie worden gecombineerd. De re- 
sulterende expressie heeft zelf ook de 
waarde ‘waar! of 'onwaar'. Voorbeeld: 


LFTIJD. GE. 18. AND. LFTIJD. LE. 65 


beëindiging van een lus: De uitvoering van een lus wordt in SF/k 
normaliter beëindigd doordat de bestu- 
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IGO TO'-statement: 


nesten: 


6.10 OPGAVEN 


ringsvariabele een vooraf gedefinieerde 
eindwaarde bereikt, Is er een tweede 
criterium in het geding, waardoor de 
lus eventueel voortijdig beëindigd moet 
kunnen worden, dan wordt de lus in 
SF/k in de voorwaardelijke 'IF... 

GO TO'-vorm geprogrammeerd. Het 
tweede criterium wordt samen met het 
eerste als een samengestelde conditie 
in de 'IF...GO TO'-statement opgeno- 
men. Eventueel kunnen ook meer dan 
twee criteria in de samengestelde con- 
ditie worden opgenomen. 


Heeft besturingsoverdracht naar een 
ander deel van het programma tot ge- 
volg en wordt in SF/k als een integraal 
deel van de voorwaardelijke luscon- 
structie toegepast, Buiten dit verband 
wordt de GO TO in SF/k niet gebruikt. 


Het onderbrengen van bepaalde state- 
ments binnen het ‘werkgebied! van een 
andere statement van hetzelfde type. 
Een DO-statement kan bijvoorbeeld 
'genest' worden binnen het bereik van 
een andere DO-statement. Zo ook met 
voorwaardelijke lussen en 'IF,,. THEN 
‚ELSE '-constructies, 


Alle oefeningen bij dit hoofdstuk zijn gebaseerd op het volgende pro- 
bleem. Een meteoroloog houdt iedere maand weerkundige gegevens 
bij met behulp van een computerbestand. Het bestand voor een gege- 
ven maand begint steeds met een regel waarin het aantal dagen van 
die maand is opgenomen. Voor iedere dag van de maand wordt een 
aparte regel gebruikt waarop achtereenvolgens de neerslag, de 
minimale temperatuur, de maximale temperatuur en een luchtver- 
ontreinigingsindex voor die dag worden vastgelegd. Het bestand voor 
een bepaalde maand zou er bijvoorbeeld als volgt kunnen uitzien: 


0 33. y i 
Ee e 

0 35 40 

0 34 38 
enzovoort 


Voor elk van de volgende opgaven moet een programma worden ge- 
schreven dat de gegevens van een maand inleest en bepaalde bewer- 
kingen daarop uitvoert. Om u op weg te helpen worden de oplossin- 
gen voor de eerste twee vragen gegeven. 


1. Bepaal de eerste dag van de maand waarop neerslag viel, 


Oplossing: 


c 
C 


10 


DIT PROGRAMMA BEPAALT DE EERSTE DAG VAN DE MAAND 
WAAROP NEERSLAG VIEL 


REAL NRSLAG:, MINTMP, MAXTMP, VINDEX 
INTEGER DAG: LANG 
READ #, LANG 


NRSLAG = 0 
IF (NRSLAG .NE. 0.0 .OR. DAG .GE. LANG) GOTO 20 
READ #,; NRSLAG:, MINTMP, MAXTMP, VINDEX 
DAG = DAG + 1 
GOTO 10 
CONTINUE 
IF (NRSLAG .GT. 0.0) THEN 
PRINT #, ‘NEERSLAG OP DAG ‘; DAG 
ELSE 
PRINT #, ‘DEZE MAAND GEEN NEERSLAG’ 
ENDIF 
STOP 
END 


2. Controleer of de ingelezen waarden aannemelijk zijn. Verifieer 
dat het aantal dagen van de maand tussen 1 en 31 ligt. Verifieer 
dat het neerslagcijfer maximaal 100 is. Verifieer dat temperatu- 
ren tussen -60 en +60 graden (Celsius) liggen, en dat voor een 
gegeven dag het maximum minstens even groot is als het mini- 
mum, Verifieer dat de verontreinigingsindex tussen de waar- 
den 0 en 25 ligt. 
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Oplossing: 


10 


DIT PROGRAMMA VERIFIEERT INVOERGEGEVENS 


REAL NRSLAG:, MINTMP, MAXTMP,; VINDEX 
INTEGER DAG, LANG 
READ #, LANG 
IF (LANG .LE. O OR. LANG .GT. 31) THEN 
PRINT #, ‘MAAND HEEFT ONJUIST AANTAL DAGEN: ’', LANG 
STOP 
ENDIF 
DO 10 DAG = 1, LANG 
READ #, NRSLAG, MINTMP, MAXTMP, VINDEX 
IF (NRSLAG .LT. 0.0 .OR. NRSLAG .GT. 100.0) THEN 
PRINT #, ‘DAG ‘, DAG, ’ HEEFT ONJUIST NEERSLAGCIJFER: 
$ NRSLAG 


ENDIF 
IF (MINTMP .LT. -60.0 .OR. MINTMP .GT. MAXTMP 
$ «OR. MAXTMP .GT. 60.0) THEN 
PRINT #, ‘DAG ‘, DAG, ’' HEEFT ONJUISTE ’, 
$ 'TEMPERATU(U)R(EN): ’, MINTMP, MAXTMP 
ENDIF 


IF (VINDEX .LT. 0.0 .OR. VINDEX .GT. 250) THEN 


r 


PRINT #, ‘DAG ’»: DAG: ’ HEEFT ONJUIST VERONTREINIGINGS’, 


$ ‘INDEX: ‘, VINDEX 
ENDIF 

CONTINUE 

STOP 

END 


Bepaal op welke dag de hoogste temperatuur werd bereikt, 


Bepaal de eerste dag waarop neerslag viel en de maximale tem- 
peratuur meer dan 38 graden bedroeg. 


Bepaal op welke dagen het verschil tussen maximum- en minimum- 
temperatuur meer dan 5 graden bedroeg. 


Bepaal de twee warmste dagen van de maand. 


Bepaal of de verontreinigingsindex meer dan 5 bedroeg op een 
dag dat de minimale temperatuur meer dan 35 was, 


Bepaal op welke drie opeenvolgende dagen gezamenlijk de meeste 
neerslag viel. 


Bepaal of er een daling van de verontreinigingsindex optrad op 
iedere dag zonder neerslag volgend op een dag met neerslag. 
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10. Maak aan de hand van de gegevens van de eerste tien dagen een 
weersvoorspelling voor de elfde dag. Vergelijk deze voorspel- 
ling met de bestandgegevens voor de elfde dag (met de hand, of 
met behulp van het programma). 


7 SF/4: DE VERWERKING VAN 
ALFANUMERIEKE GEGEVENS 


Aan het begin van dit boek hebben we gesteld dat computers behalve 
bewerkingen op rekenkundige gegevens ook bewerkingen kunnen uit- 
voeren op alfabetische gegevens. Tot nu toe is hier weinig van 
gebleken, afgezien van het gebruik van literalen in uitvoeropdrach- 
ten. In hoofdstuk 2 hebben we gezien dat alfabetische gegevens deel 
uitmaken van een grotere gegevenscategorie: de alfanumerieke gege- 
vens. Alfanumerieke gegevens zijn weliswaar in de vorm van iden- 
tificatoren en sleutelwoorden aan de orde geweest, maar daarbij 
ging het om onderdelen van programma's zelf, in tegenstelling tot 
gegevens die door een programma verwerkt moeten worden, In dit 
hoofdstuk behandelen we SF/4, een subset met taalkundig 'gereed- 
schap' voor het in- en uitvoeren van alfanumerieke gegevens, en het 
onderling vergelijken en verplaatsen van die gegevens in het (interne) 
geheugen. 


7.1 ENKELE BASISBEGRIPPEN 


Ter inleiding laten we enkele (deels eerder behandelde) basisbegrip- 
pen de revue passeren. 


Onder alfanumerieke tekens verstaan we letters, cijfers en bijzonde- 
re tekens zoals rekenkundige symbolen en leestekens. Ook de spatie 
is een alfanumeriek teken. Waar nodig geven we spaties aan met het 
teken b (blank). Tot de verzameling alfanumerieke tekens die met 
behulp van een FORTRAN-programma verwerkt kunnen worden beho- 
ren niet slechts-de tekens van de FORTRAN-tekenverzameling, maar 
alle tekens die de desbetreffende computer 'kent'. 


Een aaneenschakeling van alfanumerieke tekens noemen we een 
tekenreeks of string. 


Voorbeeld: DITbISbEENbTEKENREEKS 
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Een literaal is een tekenreeks voorafgegaan en gevolgd door een apo- 
strof. Een literaal wordt ook wel CHARACTER-constante genoemd. 


Voorbeeld: 'DITbISbEENDLITERAAL! 


Onder de lengte van een literaal verstaan we het aantal tekens waar- 
uit de desbetreffende tekenreeks bestaat, de omvattende apostroffen 
niet meegerekend. De lengte van bovengenoemde literaal is dus 19 
tekens, 


Apostroffen die deel uitmaken van een literaal moeten als twee enke- 
le apostroffen worden gecodeerd, bijvoorbeeld: 


S-GRAVENHAGE! 
De tweede en derde apostrof worden daarbij als één teken gerekend. 


Voor het bijzondere geval van een literaal zonder tekens, weer te 
geven als '', gebruiken we de term nulreeks (Engels: null string). 
Nulreeksen zijn in SF/k niet toegestaan. 


7.2 CHARACTER-VARIABELEN 


Zoals we geheugenruimte kunnen reserveren voor de opslag van 
INTEGER- of REAL-getallen, zo kunnen we ook ruimte reserveren 
voor de opslag van tekenreeksen. De variabele die we daarbij 
gebruiken noemen we een CHARACTER-variabele. 


Declaratie van CHARACTER-variabelen 


Een CHARACTER-variabele met de willekeurige identificator 
TEKST kan bijvoorbeeld als volgt worden gedeclareerd: 


CHARACTERx50 TEKST 


Het sleutelwoord 'CHARACTER'! geeft het datatype van de variabele 
TEKST aan. De toevoeging *50 definieert het aantal tekens dat de 
variabele TEKST kan bevatten, Doorgaans wordt per teken één byte 
gereserveerd. Worden minder dan 50 tekens in de variabele TEKST 
opgeslagen, dan worden daarvoor de 'linker' (= meest significante) 
bytes gebruikt. De overblijvende ruimte wordt opgevuld met spa- 
ties, Dit noemt men ook wel 'padding' (Engels: to pad = opvullen). 
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Probeert men meer dan 50 tekens aan TEKST toe te kennen, dan 
wordt de desbetreffende tekenreeks aan de rechterkant tot 50 tekens 
afgekapt. 


Bovenstaande declaratie kan eenvoudig voor meer variabelen worden 
uitgebreid, bijvoorbeeld: 

CHARACTER * 50 TEKST, REGEL1, REGEL2. 
Voor alle variabelen geldt dan dezelfde lengte (in dit geval 50 tekens). 


Wil men voor een van de variabelen een afwijkende lengte specifice- 
ren, dan kan dat door achter de desbetreffende variabele de toevoe- 
ging '*xn' te plaatsen, waarbij n uiteraard de lengte voorstelt. 


Voorbeeld: 
CHARACTER *50 TEKST, REGEL1 *25, REGEL2 


Hierbij krijgt REGELI een lengte van 25 tekens, en TEKST en 
REGEL2 een lengte van 50 tekens. : 


7.3 ENKELE BASISBEWERKINGEN 


Bij de behandeling van SF/1 hebben we gezien hoe een tekenreeks 
met behulp van een literaal kan worden afgedrukt, bijvoorbeeld: 


PRINT +, 'PRIJS = ', BEDRAG 


Met dergelijke opdrachten konden we onder andere onze uitvoer van 
verklarende tekst voorzien. De desbetreffende tekenreeks wordt daar- 
bij (zonder apostroffen) in een veld van de 'eigen' grootte afgedrukt. 


Inlezen en afdrukken 


Dankzij CHARACTER-variabelen kunnen we alfanumerieke gegevens 
ook inlezen vanaf een invoerbestand, of laten afdrukken. Als voor- 
beeld hiervan geven we het volgende programma waarin tekenreek- 
sen worden ingelezen en afgedrukt. 


C LEES EEN STUK TEKST IN EN DRUK HET AF 


CHARACTER#78 TEKST 
READ #, TEKST 
PRINT #, TEKST 
STOP 

END 


invoer: 


‘DIT IS EEN WILLEKEURIG STUKJE TEKST’ 


De uitvoer zou zijn: 
DIT IS EEN WILLEKEURIG STUKJE TEKST 


Merk op dat de in te voeren tekenreeks als literaal moet worden op- 
gegeven. De omvattende apostroffen worden niet afgedrukt. Dit houdt 
in dat de grootste tekenreeks die men door middel van een dataregel 
van 80 posities kan aangeven uit 78 tekens bestaat. Het verdient 
aanbeveling CHARACTER-variabelen, waaraan door inlezen een 
waarde wordt toegekend, niet groter te maken dan de maximale leng- 
te van de dataregel (normaal 80). Bij de uitvoer kan de lengte van 
een CHARACTER-variabele het beste worden beperkt tot de maxi- 
male regellengte. Variabelen die deze grenzen te boven gaan, en 
waarbij de bijbehorende gegevens zich dus over meerdere bestands- 
of afdrukregels uitstrekken, zijn in het algemeen moeilijk te hante- 
ren. Bovendien beperken sommige compilers de lengte van teken- 
reeksen tot maximaal 255 tekens. 


Toekenningen 


CHARACTER-variabelen kunnen ook door middel van toekenning een 
waarde krijgen. 


Voorbeeld: CHARACTER *10 NAAM 
NAAM = 'HANS' 
PRINT x, NAAM 


levert: HANSbbbbbb 


Toekenning van bijvoorbeeld de literaal 'CORLEY PHILIPS' in plaats 
van 'HANS' aan de variabele NAAM zou afkappen tot gevolg hebben. 
De eerste 10 tekens van de literaal zouden toegekend (en afgedrukt) 
worden. De overige tekens worden niet verwerkt. De uitvoer zou zijn: 


CORLEYbPHI 


7.4 HERKENNING VAN TEKENREEKSEN 


Om verschillende redenen kan het nodig zijn dat tekenreeksen onder- 
ling worden vergeleken. Daarbij kan het bijvoorbeeld de vraag zijn 
of twee reeksen wel of niet identiek zijn. De uitkomst van zo'n ver- 
gelijking heeft een logisch karakter -de bewering die men over het 
al dan niet gelijk zijn van die tekenreeksen doet is immers 'waar' of 
‘onwaar'. We maken hierbij dan ook gebruik van logische condities. 
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Een voorbeeld 


Het volgende programma illustreert het gebruik van een logische 
conditie bij het herkennen van een bepaalde tekenreeks. Het pro- 
gramma leest worden in vanaf een invoerbestand en drukt ze af, 
totdat het woord STOP ingelezen wordt. 


C DIT PROGRAMMA STOPT ALS ‘STOP’ WORDT INGEVOERD 


CHARACTER#10 WOORD 
INTEGER AANTAL 
AANTAL = O 
READ #, WOORD 
5 IF (WOORD .EQ. ‘STOP’) GOTO 10 
PRINT &#, WOORD 
AANTAL = AANTAL + 1 
READ #: WOORD 
GOTO 5 
10 CONTINUE 
PRINT #, AANTAL 
STOP 
END 


gegevens: 


"AAP 
‘NOOT’ 
‘MIES 
‘STOP’ 
"WIM 


De uitvoer ziet er als volgt uit: 


AAP 
NOOT 
MIES 

3 


Toelichting 


In dit voorbeeld nemen we aan dat de invoer aangeboden wordt als een 
voorafgedefinieerd bestand. De voortgang van de lus wordt bepaald 
door de conditie WOORD. EQ. 'STOP' in de 'IF...GO TO'-statement. 
Deze conditie is onwaar zolang de variabele WOORD nog niet de 
waarde STOP heeft. Na het inlezen van het woord STOP wordt de 
conditie waar. De lus wordt daarop beëindigd en het aantal ingelezen 
woorden wordt afgedrukt. 


Merk op dat het ontbreken van de invoerwaarde 'STOP' aanleiding zou 
geven tot het optreden van een '‘end-of-file'-conditie (de lijst raakt 
immers 'op' terwijl nog steeds getracht wordt te lezen). Merk ook op 
dat de computer niet toekomt aan het inlezen van het laatste woord 
(WIM), aannemende dat 'STOP' op de aangegeven plaats in het 
invoerbestand staat. 


7.5 ALFABETISCH SORTEREN 


In hoofdstuk 2 hebben we gezien dat tekens binnen de computer 
voorgesteld worden door een bepaalde interne representatie. Daar- 
voor bestaan verschillende codes, bijvoorbeeld EBCDIC of ASCII. 
Deze codes zijn in het algemeen zo gedefinieerd dat als men de 
interne representatie numeriek opvat, de letter A een lagere waarde 
heeft dan de letter B, B een lagere waarde heeft dan C, enzovoort. 
We kunnen dus zeggen dat A kleiner is dan B, enzovoort. Men zegt 
dat er tussen de verschillende letters een sorteervolgorde (Engels: 
collating sequence) bestaat. 

Deze sorteervolgorde geldt ook voor tekenreeksen. Voor zover die 
tekenreeksen uit letters van het alfabet bestaan is die volgorde alfa- 
betisch, De tekenreeks AAP heeft dus een lagere waarde dan AAR, 
maar een hogere waarde dan AAN, 


Omdat achter de sorteervolgorde intern een numerieke volgorde 
schuil gaat, kunnen we tekenreeksen sorteren met behulp van rela- 
tionele of uitgebreidere logische expressies. 


Voorbeelden: 'A',GE.'B' is onwaar 
'AAP'. LT. 'AAR', AND, 'AAP'. GT. 'AAN!' is waar 


De sorteervolgorde in FORTRAN 77 


In FORTRAN 77 is voor een deel van de tekenverzameling (zie 
hoofdstuk 3, figuur 3-1) een sorteervolgorde gedefinieerd. Voor de 
letters geldt de normale alfabetische volgorde, waarbij A de hoogste 
en Z de laagste waarde heeft, Voor cijfers geldt de normale nume- 
rieke volgorde, waarbij 0 dus kleiner is dan 9, 


De numerieke waarde van de cijfers moet óf hoger óf lager liggen 
dan van de letters, De tekenreeks A1B kan dus óf hoger óf lager in 
waarde zijn dan de reeks AB1. Dit hangt uiteindelijk af van de code 
waarmee intern gewerkt wordt! 


Het spatieteken is kleiner dan zowel de A als het cijfer 0. De teken- 
reeks 'XYZb1' is dus kleiner dan de tekenreeks 'XYZ1b'. Voor de 
bijzondere tekens is in FORTRAN 77 geen sorteervolgorde gedefi- 
nieerd. 


De gangbare codes zoals EBCDIC en ASCII voldoen aan bovengenoem- 
de FORTRAN-specificaties. 


Leijters hebben in EBCDIC een hogere, en in ASCII een lagere waarde dan 
letters. 
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Het vergelijken van tekenreeksen van ongelijke lengte 


Bij het vergelijken van twee tekenreeksen van ongelijke lengte wordt 
de kortste reeks intern met spaties aangevuld tot de lengte van de 
grootste, De vergelijking: 


'AAD', GE. 'AADJE! 
is dus equivalent met de vergelijking: 
'AADbb', GE. 'AADJE' 


en heeft dus de logische waarde '‘onwaar'. 


Nog enkele voorbeelden 


'PIETERSE', LT, 'PIETERSEN'! waar 
'bA!, LT. IA waar 
PPAR Wi Bee waar (omdat 2. GT. 1) 


Een voorbeeldprogramma 


Het volgende programma leest 10 persoonsnamen in, en drukt de 
naam af die in alfabetische volgorde de laatste is. 


C DIT PROGRAMMA BEPAALT DE NAAM DIE IN rest ienke Eee 
C VOLGORDE DE LAATSTE IS 


CHARACTER#15 NAAM: LAATST 
INTEGER I 
LAATST = 'AAAAA’ 
DO IG- i a 14409 
READ #, NAAM 
IF (NAAM .GT. LAATST) THEN 
LAATST = NAAM 
ENDIF 
18 CONTINUE 
PRINT #, LAATST 
STOP 
END 


gegevens: 


‘HUME ’ 

LAMOT ° 

‘HULL * 

‘'SEUCIK ’ 

‘VANEK ’ 

‘WORTMAN ’ 

‘HORNING ’ e 
‘TSICHRITZIS 

‘GOTLIEB ’ 

SWENSON’ 


De uitvoer van het programma is: 


WORTMA Nbbbbbbbb 


Merk op dat de variabele LAATST vóór de aanvang van de lus geïni- 
tialiseerd wordt, omdat anders de conditie in de IF-statement bij de 
eerste uitvoering van de lus niet gedefinieerd is. Omdat de desbe- 
treffende literaal ('AAAAA') een lage waarde heeft wordt het onge- 
twijfeld bij de eerste uitvoering van de IF-statement door een andere 
waarde vervangen. We hadden voor LAATST echter ook direct de 
eerste invoerwaarde kunnen inlezen, en het bereik van de teller I 
met 1 kunnen verminderen. 


7.6 SAMENVATTING 


In dit hoofdstuk is het werken met alfanumerieke gegevens behandeld. 
Het begrip CHARACTER-variabele werd ingevoerd. Besproken werd 
hoe met dit type variabele tekenreeksen kunnen worden ingelezen en 
afgedrukt, en hoe tekenreeksen onderling vergeleken en eventueel 
gesorteerd kunnen worden. Daarbij kwamen de volgende kernbegrip- 
pen aan de orde, 


literaal: Een tekenreeks voorafgegaan en gevolgd 
door een apostrof, De omvattende apo- 
stroffen worden niet tot de tekenreeks 
gerekend, Apostroffen die deel uitma- 
ken van de literaal moeten als twee 
enkele apostroffen worden gecodeerd. 


lengte van een literaal: Het aantal tekens waaruit een literaal 
bestaat, de apostroffen niet meegere- 
kend. Twee opeenvolgende apostroffen 
binnen een literaal worden als één 
teken gerekend. 


nulreeks Een literaal zonder tekens, weer te 
(Engels: null string): geven als ''. Nulreeksen zijn in SF/k 
; niet toegestaan. 


CHARACTER-variabele: Een variabele die een tekenreeks als 
waarde heeft. Voor de waardebepaling 
kan (onder andere) gebruik worden ge- 
maakt van een literaal die in het rech- 
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ter deel van een toekenningsstatement 
voorkomt, of die deel uitmaakt van een 
invoerbestand. De waarde kan intern 
in numerieke zin worden opgevat 
waardoor bijvoorbeeld kan worden 
gesorteerd. 


afkappen van tekenreeksen Het verwaarlozen van de rechtertekens 


(Engels: truncation of: van een tekenreeks bij toekenning aan 

chopping): een CHARACTER-variabele die te 
klein is om de volledige tekenreeks te 
bevatten. 

vergelijken van teken- Gebaseerd op de eigenschap dat teken- 

reeksen: reeksen intern numeriek opgevat kun- 


nen worden, en daarom met behulp van 
de bekende relatie-operatoren (. LT., 
ke EO (GE, „Is HNE.) 
met elkaar vergeleken kunnen worden. 
Tekencodes zijn zo gedefinieerd dat de 
numerieke waarde toeneemt in alfabe- 
tische volgorde, 'AAP' heeft dus een 
kleinere waarde dan 'MIES', 


padding met spaties Het automatisch 'rechts' aanvullen van 

(Engels: blank padding): een tekenreeks met spaties, onder 
andere om vergelijkingen met een lan- 
gere tekenreeks mogelijk te maken. 
De vergelijking: 


'PIET', EQ. 'PIETb' 


is waar omdat de kortere reeks intern 
wordt aangevuld met een spatie. 
Padding met spaties vindt ook plaats bij 
het toekennen aan een CHARACTER- 
variabele van een tekenreeks die klei- 
ner is dan de tekencapaciteit van de 
desbetreffende variabele. 


7.7 OPGAVEN 


1. Welke van de onderstaande tekenreeksvergelijkingen hebben de 
logische waarde 'waar'? 


. 'DAVIDbBARNARD', EQ. 'DA VIDbBARNARD! 
'E.bWONG!, EQ. 'EDMUNDbWONG! 
'MARKbFOX', EQ. 'MARKbbFOX' 

'JOHNSTON'!, GT. 'JOHNSON! 
'JULIANALAAND134', LE, 'JULIANAI AANb132! 
'HUME, PAT', GT, 'HOLT, RIC! | 
VALLEN', NE, 'ALAN' 


moa 


pe 


Schrijf een programma om uit een lijst met persoonsnamen zoals 
de onderstaande een andere lijst te maken van alle personen met 
de achternaam JONES, 


IJONES, A.B," 
YOUNG, A.C.' 
IJONES, R.M.' 
COLLINS, R. À! 
ABEL, J.' 
'LAZOWSKA, E.' 
'ZZZ' (sluitkaart) 


. De penningmeester van het plaatselijke muziekkorps te Xdorp 


houdt de namen en adressen van donateurs bij met behulp van een 
computerbestand. Vanuit het oogpunt van dorpschauvinisme wordt 
aangenomen dat muziekminnaars uit andere plaatsen dan Xdorp 
zich nooit ofte nummer als donateur van het korps zullen aanmel- 
den. Wat de adressen betreft wordt verder aangenomen dat huis- 
nummers overbodig zijn. Voor iedere donateur kan daarom wor- 
den volstaan met een bestandsregel (record) waarin persoons- 
naam en straatnaam in de vorm van afzonderlijke literalen zijn 
opgenomen. 

Met een computer moet een lijst gemaakt worden van alle dona- 
teurs die in een bepaalde straat wonen. De gewenste straat wordt 
opgegeven door middel van een apart record dat aan de overige 
records voorafgaat. Aan de hand van dergelijke lijsten kunnen de 
donateurs persoonlijk worden benaderd. Gevraagd wordt een 
FORTRAN-programma te schrijven dat deze lijsten produceert. 


. Mede door de in opgave 3 bedoelde automatiseringsactiviteiten 


komt het muziekkorps te Xdorp tot grote bloei. Het wordt ondoen- 
lijk de donateurs persoonlijk te benaderen, en het bestuur van het 
korps besluit dan ook de reeds ontplooide automatiseringsactivi- 
teiten uit te breiden. Daartoe wordt een nieuw computerbestand 
opgebouwd. Per donateur wordt een record gebruikt met de vol- 
gende gegevens: 

- achternaam 

- voorletters 

- straatnaam en huisnummer 
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- postcode en woonplaats 

- geslacht (M of V) 

- de bijdrage van het vorige jaar. 

Alle gegevens worden ingevoerd als literalen. Het geldbedrag 
wordt consequent in de vorm 'ecece. ec! ingevoerd, waarbij c 
een willekeurig cijfer voorstelt; bedragen die minder dan 8 posi- 
ties beslaan worden rechts in het literaalveld aangesloten. Voor- 
letters en straatnamen worden zonodig achterwege gelaten res- 
pectievelijk ingekort om alle gegevens in één record te kunnen 
plaatsen. 


Voorbeeld: 
'DIRKSEN' 'A.B.C.' 'HOOFDSTR 12' '1234 AB XDORP' 'M' 'bbb10. 00' 
De gegevens van dit bestand worden gebruikt om jaarlijks een 
'persoonlijke' brief aan de donateurs op te stellen. De brief 
heeft de volgende vorm: 

Xdorp, DDD 
VVV AAA 
SSS 
WWW 
Geachte GGG AAA, 


Hartelijk dank voor het bedrag van f BBB waarmee u ons het 
afgelopen jaar hebt gesteund. 


Gaarne rekenen we ook dit jaar op uw medewerking. | 
U kunt uw bijdrage storten op postrekening 12. 34, 56 t.n.v. 'Ons 
Genoegen! te Xdorp. 


Hoogachtend 
De penningmeester 


De in de brief gebruikte coderingen hebben de volgende betekenis: 


DDD = datum (aan te geven met een extra record dat aan de 
overige records voorafgaat) 

VVV = voorletters van de donateur 

AAA = achternaam van de donateur 

SSS = straat en huisnummer 


WWW = postcode en woonplaats 
GGG =de tekst 'Heer' als het geslacht mannelijk is 
de tekst 'Mevrouw' als het geslacht vrouwelijk is 


BBB 


het bedrag 
indien het bedrag f 100.00 of meer is de tekst: 

‘Gezien de hoogte van dit bedrag kunt u t.z.t. (voor 
zover dit nog niet is gebeurd) rekenen op een serenade, '; 
anders wordt niets afgedrukt. 


Gevraagd wordt een FORTRAN-programma te schrijven dat deze 
brief produceert. 


8 SF/5: ARRAYS 


Tot nu toe had iedere variabele die in een programma voorkwam 

een eigen, unieke identificator. In dit hoofdstuk zullen we zien dat 
een groep variabelen een gemeenschappelijke naam kan hebben. De 
variabelen worden daarbij onderling onderscheiden door een nummer. 


8.1 BASISBEGRIPPEN 


Stel dat we een lijst met persoonsnamen hebben. Als gemeenschappe- 
lijke naam van deze lijst gegevens kiezen we PERSON ‚ De verschil- 
lende elementen van de verzameling kunnen dan worden aangeduid 

als PERSON(I), PERSON(2), PERSON(3), enzovoort, waarbij 
PERSON(n) (bijvoorbeeld) een CHARACTER-variabele is die een 
bepaalde naam bevat. 


Voorbeeld: PERSON(I) = 'JAN' 
PERSON(2) = 'PIET' 
PERSON(3) = 'KLAAS' 
enzovoort 


De gehele verzameling noemen we een arrayvariabele of kortweg 
een array1, 


Array elementen 


De grootheden waaruit de array is opgebouwd noemen we elementen. 
Het nummer waarmee deze elementen onderling worden onderschei- 
den noemen we een index (Engels: subscript expression). In plaats 
van 'elementen' spreken we daarom ook wel van geïndiceerde varia- 
belen (Engels: subscripted variables). 


Emm dit boek wordt deze (Engelse) term onvertaald gehanteerd, zoals dat ook 
in de praktijk veelal gebeurt. Zie ook de Verantwoording. 
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Een arrayindex is in principe een INTEGER-expressie!. Dit bete- 
kent dat geïndiceerde variabelen bijvoorbeeld ook in de vorm 
PERSON(I) of PERSON(I+1) kunnen voorkomen. In zulke gevallen 
wordt de waarde van de expressie berekend en als het ware op de 
plaats van de index gesubstitueerd, 


Voorbeeld: I= 3 
PERSON(I+1) = NAAM 


is equivalent met: 


PERSON(4) = NAAM 


De elementen van een array kunnen in een programma op dezelfde 
wijze worden gebruikt als 'gewone', niet-geïndiceerde variabelen. 


Waarom arrays? 


Het zal waarschijnlijk niet onmiddellijk duidelijk zijn waarom we 
variabelen op deze wijze zouden benoemen, We zullen dan ook voor- 
beelden behandelen waarin het voordeel van deze (meervoudige) 
variabelen ten opzichte van 'gewone! (enkelvoudige) variabelen tot 
uitdrukking komt. Alvorens hier op in te gaan laten we zien hoe 
arrays gedeclareerd kunnen worden. 


8.2 ARRAYDECLARATIES 


CHARACTER-arrays 


Voor de in de vorige paragraaf genoemde lijst met persoonsnamen 
zouden we als volgt een array kunnen declareren: 


CHARACTER x 20 PERSON(50) 


Door deze (CHARACTER-type-) statement wordt voor 50 tekenreek- 
sen (persoonsnamen) met een lengte van 20 tekens een geïndiceerde 
CHARACTER-variabele gereserveerd, De declaratie bestaat uit een 
aanduiding van het datatype (CHARACTER), de lengte van de afzon- 
derlijke elementen (20 tekens), de naam van de array (PERSON) en 


lin tegenstelling tot FORTRAN 66 zijn er geen restricties ten aanzien van de 


vorm van de expressie. 
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het aantal elementen van de array (50). De elementen worden ver- 
ondersteld genummerd te zijn van 1 tot en met 50. Het getal 50 
geeft dus een bovengrens van de index aan; stilzwijgend wordt aange- 
nomen dat de ondergrens 1 is, De gedeclareerde array vormt een 
aaneengesloten geheugengebied, | 


Arrays van andere datatypen 


Naast CHARACTER-arrays kunnen we ook arrays met andere data- 
typen (bijvoorbeeld INTEGER of REAL) declareren, Hiervoor kun- 
nen we een gelijksoortige statement als voor CHARACTER-arrays 

toepassen, bijvoorbeeld: 


INTEGER GETAL(50) 


Door deze (type-) statement wordt een INTEGER-array met de 
naam GETAL gedefinieerd. De elementen hiervan zijn GETAL(1), 
GETAL(2), GETAL(3),....., GETAL(50). Merk op dat hier een 
lengte-aanduiding van de variabelen zelf ontbreekt. De lengte is 
immers in principe afhankelijk van de representatie-afspraken van 
het gebruikte computersysteem, en kan niet door de programmeur 
worden veranderd, Wel kennen sommige compilers een lengte- 
optie voor verschillende datatypen, zoals INTEGER's van 2 of 4 
bytes (bijvoorbeeld te noteren als INTEGER x» 2 respectievelijk 
INTEGERx4). Dit is echter niet in overeenstemming met de 
FORTRAN-norm. 


Zoals gebruikelijk bij declaraties kunnen in een type- (of 
CHARACTER-type-) statement meerdere grootheden van hetzelfde 
datatype worden gedeclareerd, bijvoorbeeld: 


INTEGER GETAL(50), X(25), Y(25), JAN 
en: 
CHARACTER» 20 PERSON(50), REGEL(80), VELD 


Ook hier vormt de gedeclareerde array een aaneengesloten geheu- 
gengebied. 
Andere declaratiemogelijkheden 


Naast de hier behandelde type-statements kent FORTRAN 77 ook 
andere mogelijkheden om arrays te declareren: 


lin FORTRAN 77 (maar niet in SF/k) kan ook met een andere ondergrens 
dan 1 worden gewerkt. 
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- de DIMENSION-statement (die specifiek voor het declareren van 
arrays wordt gebruikt), 

- de COMMON-statement (die 'en passant' voor dit doel kan worden 
gebruikt). 


Deze mogelijkheden worden in SF/k niet toegepast. De DIMENSION- 
statement wordt in dit boek in het geheel niet behandeld omdat de 
genoemde type-statements -een recentere ontwikkeling- veel 
krachtiger zijn. De COMMON-statement komt later wel ter sprake, 
maar niet vanuit het oogpunt van arraydeclaraties. 


8.3 HET WERKEN MET ARRAYS 


Een eerste voorbeeld: het afdrukken van een lijst in omgekeerde 
volgorde 


Stel dat we een bestand met 50 namen hebben die ingelezen en in om- 
gekeerde volgorde afgedrukt moeten worden. We maken hierbij ge- 
bruik van de eerder gedeclareerde array PERSON. Voor de index van 
de array gebruiken we geen constante maar een variabele (I). De 
waarde die deze variabele op een gegeven moment heeft bepaalt welk 
element op dat moment verwerkt wordt. Het programma is als volgt: 


C DIT PROGRAMMA KEERT DE VOLGORDE VAN EEN LIJST MET NAMEN OM 


CHARACTER#20 PERSON(50) 
INTEGER I; J 


C LEES LIJST 


DO 5 I = 1, 50 
READ #, PERSON(I) 


5 CONTINUE 
C DRUK OMGEKEERDE LIJST AF 
J = 50 


DO 15 I = 1, 50 
PRINT #,; PERSON(J) 
nd 1 
15 CONTINUE 


STOP 
END 


invoerbestand: 


‘JULIE SANDORFI ’ 
‘GLEN MACEWEN ’ 
‘PHYLLIS GOTLIEB’ 
‘TINE VAN DER GAAG 
‘DORON COHEN’ 
‘COROT REASON’ 


. Het IN TOTAAL 50 NAMEN IN DIT BESTAND OPNEMEN ### 
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Uit dit programma blijkt dat de array een krachtig stuk program- 
meergereedschap is. De eerste DO-lus leest de namen in en maakt 
daarbij gebruik van de lusteller om de verschillende arrayelementen 
aan te geven. De eerst ingelezen invoerwaarde wordt daardoor toe- 
gekend aan PERSON(1), de tweede aan PERSON(2) enzovoort. 


In de tweede DO-lus -de afdruklus- wordt achtereenvolgens afge- 
drukt PERSON(50), PERSON(49) enzovoort. Omdat in SF/k bij teller- 
bestuurde lussen het gebruik van een negatieve stapgrootte niet 
bestaat, moet een andere index (J) worden gebruikt om de gewenste 
arrayelementen te selecteren. De index J wordt geïnitialiseerd op 50 
en bij elke lusdoorgang met 1 verminderd. J doorloopt dus het waar- 
debereik 50 tot en met 1, met stappen van -1. 


In FORTRAN 77 is 'aftellen' wel mogelijk. De afdruklus zou men 
dan als volgt kunnen programmeren: 


C DRUK OMGEKEERDE LIJST AF 
C 
DO Abel = 60, 1 xt 
PRINT «, PERSON(D 
15 CONTINUE 


Een ander voorbeeld: het sommeren van een lijst getallen 
Stel dat we een lijst van 50 INTEGER-getallen willen sommeren. Hier- 
voor zouden we gebruik kunnen maken van het volgende programma. 
Cc DIT PROGRAMMA SOMMEERT 50 GETALLEN 
INTEGER GETAL(50), SOM, I 
č LEES GETALLEN 
DO 40 I = 1, 50 
READ #, GETAL(I) 
40 CONTINUE 
C SOMMEER GETALLEN 
SOM = 0 
DO 80 I = 1, 50 
SOM = SOM + GETAL(I) 
80 CONTINUE 
PRINT #, SOM 


STOP 
END 
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Merk op dat nu in plaats van een CHARACTER-array een INTEGER- 
array is gedeclareerd. Verder zijn twee afzonderlijke lussen 
gebruikt: een om alle getallen in te lezen, en een om die getallen te 
sommeren. Beide operaties kunnen ook in één lus verenigd worden: 


C LEES EN SOMMEER GETALLEN 


SOM = O0 
DO 50 I = 1, 50 
READ #, GETAL(I) 
SOM = SOM + GETAL(I) 
50 CONTINUE 


PRINT #, SOM 


Hier wordt de array element voor element ingelezen en gesom- 
meerd -dus twee bewerkingen binnen een en dezelfde lus. Het uit- 
voeren van meerdere bewerkingen op een array in één lus is niet 
ongebruikelijk, In dit geval zou bijvoorbeeld elk element van de 
array door de gevonden som gedeeld kunnen worden, en daarna 
vermenigvuldigd met 100. Hierdoor wordt de waarde van elk 
arrayelement uitgedrukt als een percentage van het geheel. Om dit 
te bewerkstelligen zouden de volgende statements aan het oorspron- 
kelijke programma toegevoegd kunnen worden: 


C BEREKEN PERCENTAGES 


DO GO I = 1, 50 
GETAL(I) = (GETAL(I) # 100.0) / SOM + 0.5 
PRINT #, GETAL(I) 
60 CONTINUE 


De oorspronkelijke waarde van elk arrayelement wordt hierbij door 
het berekende percentage vervangen. 


8.4 EEN VOORBEELDPROGRAMMA 


Arrays kan men gebruiken voor het verwerken van verschillende 
soorten lijsten. We behandelen nu een probleem. waarbij de lijst uit 
lokaaltoewijzingen ten behoeve van de leerkrachten aan een school 
bestaat. De toewijzingen zijn aangebracht in een computerbestand. 
Elke bestandsregel (record) bevat achtereenvolgens de naam van de 
_ leerkracht, het lesuur (een cijfer van 1 tot en met 6) en een lokaal- 
nummer. De lijst ziet er bijvoorbeeld als volgt uit: 
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0 (record) 


'MEVR. WEBER! 1 216 

'MEVR. MIAO' 6 216 

'DHR. VAN DER NEUT' 1 200 

'MEVR. REID' 1 103 

'MEVR. WEBER! 4 200 

'MEVR. COOMBS' 2 216 

'XXX' 0 
Gevraagd wordt de lokaaltoewijzingen per lesuur af te drukken; bij- 
voorbeeld: 

LESUUR 1 

MEVR. WEBER 216 

DHR. VAN DER NEUT 200 

MEVR. REID 103 

LESUUR 2 


MEVR. COOMBS 216 


Het programma hiervoor is als volgt: 


C DIT PROGRAMMA DRUKT LOKAALTOEWIJZINGEN AF 
CHARACTER#20 LEERKR(50) 
INTEGER LESUUR (50) , -LOKAAL (50) 
INTEGER 1, NUMMER, AANTAL 
c INITIALISATIES 
Kies 
READ #, LEERKR(I), LESUUR(I), LOKAAL (1) 
> LEES ROOSTER 
2 IF (LEERKR(I) .EQ. XXX’) GOTO 3 
I=I+i 
READ #, LEERKR(I), LESUUR(I), LOKAAL(I) 
GOTO 2 
3 CONTINUE 
AANTAL = I - 1 
c DRUK ROOSTER AF PER LESUUR 
DO 14 NUMMER = 1, 6 
PRINT *, ’LESUUR ’, NUMMER 
DO 8 I = 1: AANTAL 
IF (LESUUR(I) .EQ. NUMMER) THEN 
PRINT #, LEERKR(I), LOKAAL (1) 
ENDIF 
8 CONTINUE 
14 CONTINUE 
STOP 
END 
gegevens: 
'MEUR. WEBER’ RO) 
'MEUR. MIAO’ 6 216 
‘DHR. VAN DER NEUT’ 1 200 
'MEUR. REID’ 0 
'MEUR. WEBER’ 4 200 
'MEUR. COOMBS’ 2 216 
XXX O O 


00000010 


00000020 
00000030 
00000040 


00000050 


00000060 
00000070 


00000080 


00000090 
00000100 
00000110 
00000120 
00000130 


00000140 
00000150 


00000160 
00000170 
00000180 
00000190 
00000200 
00000210 
00000220 
00000230 


00000240 
00000250 
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De eerste lus van dit programma leest de toewijzingsrecords in. In 
regels 60 en 70 krijgt I, die als lusteller functioneert, de begin- 
waarde 1 en wordt het eerste element van de arrays LEERKR, 
LESUUR en LOKAAL ingelezen. Met behulp van I wordt ook het 
aantal toewijzingen bepaald en toegekend aan AANTAL. Het afdruk- 
ken van de lijsten vindt plaats door middel van een geneste luscon- 
structie waarbij de buitenlus het lesuur, en de binnenlus de toewij- 
zingen voor een gegeven lesuur bepaalt. 


Het overschrijden van arraygrenzen 


Bovenstaand programma is in staat maximaal 50 records te ver- 
werken, het sluitrecord meegerekend. Worden meer dan 50 records 
aangeboden, dan zal I in regel 100 na het inlezen van het vijftigste 
record de waarde 51 krijgen. Deze waarde wordt vervolgens in 
regel 110 als index gebruikt voor de arrays LEERKR, LESUUR en 
LOKAAL, met als gevolg dat de gedeclareerde bovengrens van deze 
arrays (50) overschreden wordt. 


De werking van het programma is nu ongedefinieerd, omdat de 
arrayelementen waarnaar verwezen wordt in feite niet bestaan. 
Sommige computers grijpen op dit moment dan ook in. Er wordt een 
foutmelding gegenereerd (bijvoorbeeld "ARRAY SUBSCRIPT(S) OUT 
OF RANGE!) en het programma wordt afgebroken. Andere com- 
puters reageren echter niet, en beschouwen de eerstvolgende geheu- 
genlokatie na het (aaneengesloten) arraygebied in het geheugen als 
het desbetreffende arrayelement. Dit kan ernstige gevolgen hebben 
voor de betrouwbaarheid van de verdere programmaresultaten. 


Het verdient aanbeveling, tijdens het programmeren zoveel moge- 
lijk rekening te houden met het overschrijden van arraygrenzen, In 
het bovenstaande programma zou regel 90 bijvoorbeeld veranderd 
kunnen worden in: 


2 IF (I. GT. 49. OR. LEERKR(I). EQ. 'XXX') GO TO 3 


waardoor voorkomen wordt dat het programma meer dan 50 records 
inleest. De bovengrens van de arrays kan dan ook niet overschreden 
worden. 


Deze oplossing geeft echter geen enkele indicatie van wat er aan de 

hand is als inderdaad meer dan 50 records worden aangeboden 

-alle records na het vijftigste worden eenvoudig genegeerd. Elegan- 
ter is het als het programma zelf meldt dat er te veel records aan- 

geboden zijn. Dit kunnen we bereiken door de volgende statement 
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tussen regels 130 en 140 op te nemen (waarbij de eerste toevoeging 
wordt gehandhaafd): 


IF(LEERKR(I).NE. 'XXX') THEN 
PRINT *, 'xxxFOUT: TE VEEL INVOER. LIJST WORDT ', 
1 'BEPERKT TOT 50 GEVALLEN! 
END IF 


Hierdoor krijgt de gebruiker een duidelijker inzicht in het probleem. 
Na het afdrukken van deze melding gaat de computer overigens onge- 
stoord verder met de 50 regels die wel werden ingelezen. 


8.5 TWEEDIMENSIONALE ARRAYS 


Naast arrays in de vorm van een lijst -zogenaamde ééndimensionale 
arrays- kunnen we ook werken met arrays die als het ware als een 
tabel zijn ingericht: tweedimensionale arrays. Als voorbeeld hier- 
van nemen we een tabel die de afstand in kilometers aangeeft tussen 
vier Nederlandse steden: Amsterdam, Den Haag, Rotterdam en 
Utrecht, Nummeren we deze steden in de genoemde volgorde van 1 
tot en met 4 dan ziet de tabel er als volgt uit: 


1 2 3 4 
1 0 99 15 40 
2-06 -0 29 65 
SiD 25 0 60 
4 40 65 60 0 


Voor deze tabel maken we gebruik van een tweedimensionale array 
met de naam AFTAB. Omdat de array tweedimensionaal is heeft hij 
twee indices. Met AFTAB(1, 4) bijvoorbeeld bedoelen we het array- 
element van de eerste rij en de vierde kolom, dat wil zeggen de 
afstand tussen Amsterdam en Utrecht. Een ander voorbeeld: 
AFTAB(3, 4), die de waarde 60 heeft (derde rij, vierde kolom), 

stelt de afstand tussen ROTTERDAM en UTRECHT voor. Zo geeft 
elk arrayelement de afstand tussen twee steden aan. De eerste 
index geeft steeds een rij aan, de tweede index een kolom. Het aan- 
tal arrayelementen is gelijk aan het produkt van het aantal rijen en 
het aantal kolommen. In plaats van 'rij' en 'kolom' spreekt men ook 
wel van de eerste respectievelijk tweede dimensie. 
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Declaratie 


De tweedimensionale array van dit voorbeeld kan als volgt worden 
gedeclareerd: 


INTEGER AFTAB(4, 4) 


De eerste index geeft de bovengrens aan van de eerste dimensie, de 
tweede index de bovengrens van de tweede dimensie. Beide onder- 
grenzen worden verondersteld 1 te zijn. Ten gevolge van deze 
declaratie worden 4 x 4 = 16 aaneengesloten INTEGER-geheugen- 
lokaties gereserveerd. 


Inlezen 


We laten vervolgens zien hoe de gegeven tabelwaarden in de array 
AFTAB kunnen worden ingelezen. Per dataregel bieden we één 
invoerwaarde. Daarbij gaan we rijgewijs te werk. 


INTEGER AFTAB(4,4), I, J 
DO 10 I = 1,4 


READ «, AFTAB(L J) 
5 CONTINUE 
10 CONTINUE 


In dit programmafragment komen twee DO-lussen voor, waarbij de 
ene genest is in de andere. De teller van de buitenlus (I) functio- 
neert als rijindex van AFTAB, de teller van de binnenlus (J) als 
kolomindex van AFTAB. Terwijl I = 1, doorloopt J de waarden 1 
tot en met 4. Daarbij worden de eerste vier invoerwaarden (zijnde 
de eerste rij van de tabel) ingelezen en toegekend aan achtereenvol- 
gens AFTAB(1,1), AFTAB(1,2), AFTAB(1,3) en AFTAB(1,4). Op 
dezelfde wijze wordt voor I = 2 de tweede rij, voor I = 3 de derde 
rij en voor I = 4 de vierde rij ingelezen. ; 


Verwisselen van rijen en kolommen 


Merk op dat de tabel symmetrisch is, en wel ten opzichte van de 
diagonale lijn die van de linker bovenhoek naar de rechter onderhoek 
loopt. Alle waarden op deze diagonaal (= de afstand van een stad tot 
zichzelf) zijn nul, In dit geval maakt het dan ook niets uit als bij het 
inlezen de rijen en de kolommen worden verwisseld, bijvoorbeeld 
door het verkeerd hanteren van tellers of indices, of door een 
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kolomgewijze volgorde van de invoerwaarden. Het resultaat blijft 
gelijk. In verreweg de meeste gevallen is deze symmetrie echter 
niet aanwezig. Voorzichtigheid bij het hanteren van indices en het 
samenstellen van invoerbestanden is dan ook geboden. 


8.6 VOORBEELDPROGRAMMA TWEEDIMENSIONALE 
ARRAYS 


Om het gebruik van tweedimensionale arrays te illustreren behande- 
len we een programma dat het verloop van de consumentenprijs van 
superbenzine over een bepaalde periode analyseert. We nemen als 
voorbeeld de historische oliecrisis, die we voor het gemak bepalen 
op 1976 t/m 1978. De literprijs van superbenzine, afgerond tot hele 
centen, en genoteerd aan het einde van iedere maand, was in die 
periode als volgt!: 


maand 

1 2 3 4 5 6 7 8 HR gil ER 
1976 . 105 106 107 119 112 FID: IDe: Len cakes Ade: 112 110 
1977 140-110: 110: 109 TIO 110 TUR TOB. 108 205 1089: 107 
1978 106 106 106 106 106 108 108 109 111 113 113 115 


De literprijzen worden rijgewijs ingevoerd. Het programma leest de 
gegevens, en berekent de gemiddelde prijs voor 1978 (zie p. 141). 


Toelichting 


De 36 prijscijfers worden opgeslagen in de tweedimensionale array 
PRIJS. De eerste index heeft een waardebereik van 1 tot en met 3 
en geeft de rijen (= jaartallen) van de tabel aan. De tweede index 
heeft een waardebereik van 1 tot en met 12, en geeft de kolommen 
(= maanden) aan. In wezen is de array PRIJS dus niets anders dan 
de oorspronkelijke tabel, waarbij we de gegevens per maand en per 
jaar kunnen opzoeken, mits we van het gewenste jaartal het getal 
1975 aftrekken. 


Het programma bestaat uit drie tellerbestuurde lussen, waarvan de 
eerste twee genest zijn. Met behulp van de geneste lussen worden 
de tabelgegevens rijgewijs in de array PRIJS ingelezen. Elk record 
bevat één waarde. 


De derde lus bepaalt de som van de literprijzen over het derde jaar. 
In de PRINT-statement die daarop volgt wordt deze som door 12. 0 
(REAL!) gedeeld om de gemiddelde literprijs voor dat jaar te 
berekenen. 


Ook de cijfers zijn historisch, vts 
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C DIT PROGRAMMA BEREKENT DE GEMIDEELDE LITERPRIJS OVER EEN 
C PERIODE VAN EEN JAAR 


INTEGER PRIJS(3,12) 
INTEGER MAAND, JAAR, TOTAAL 


DO 16 JAAR = 1, 3 
C LEES PRIJZEN IN PER JAAR 
DO 7 MAAND = 1, 12 
READ #, PRIJS(JAAR:;MAAND) 
7 CONTINUE 
16 CONTINUE 
C BEREKEN DE GEMIDDELDE PRIJS IN 1978 
TOTAAL = O0 
DO 19 MAAND = 1, 12 
TOTAAL = TOTAAL + PRIJS(3:MAAND) 
19 CONTINUE 


PRINT #, ‘GEMIDDELDE PRIJS IN 1978; ‘, TOTAAL/12.0 


STOP 
END 
invoer: 
105 
106 
107 
115 


Kolomgewijze bewerking 


Indien gewenst kunnen we ook de gemiddelde prijs per maand bepa- 
len. Hierbij worden de gegevens kolomgewijs bewerkt. In het vol- 
gende programmafragment wordt de gemiddelde prijs voor februari 


bepaald. 
TOTAAL = 0 
DO 25 JAAR = 1,3 
TOTAAL = TOTAAL + PRIJS(JAAR, 2) 


25 CONTINUE 
PRINT *, 'GEMIDDELDE PRIJS IN FEBRUARI: !', 
1 TOTAAL/3. 0 
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Integrale bewerking 


De bewerking per rij en kolom kan in een geneste DO-constructie 
worden gecombineerd. Het volgende programmafragment bepaalt de 
gemiddelde prijs voor de totale periode van 36 maanden, 


TOTAAL = 0 
DO 50 JAAR = 1,3 
DO 40 MAAND = 1,12 
TOTAAL = TOTAAL + PRIJS(JAAR, MAAND) 


40 CONTINUE 
50 CONTINUE 
PRINT «, 'GEMIDDELDE PRIJS OVER 3 JAAR: ', 
1 TOTAAL/36.0 


Arrays met drie of meer dimensies 


In het bovenstaande programma zijn we uitgegaan van tweedimensio- 
nale arrays. Driedimensionale arrays zijn echter ook mogelijk. 
Hiervan zouden we gebruik kunnen maken als bijvoorbeeld niet 
alleen het prijsverloop van superbenzine maar ook van andere 
brandstoffen geanalyseerd moet worden. Om behalve de literprijs 
van superbenzine ook de prijzen van normaalbenzine, diesel en 

LPG te verwerken zouden we de tweedimensionale array PRIJS met 
een derde dimensie kunnen uitbreiden. Deze derde dimensie zou 
dan vier elementen (één voor iedere brandstof) moeten bevatten. De 
declaratie zou zijn: 


INTEGER PRIJS(3, 12,4) 


In FORTRAN 77 zijn zeven dimensies toegestaan. In SF/k zijn 
maximaal slechts drie dimensies mogelijk. 


8.7 ARRAYS EN GEGEVENSSTRUCTUUR 


Tot nu toe hebben we het begrip gestructureerd programmeren 
voornamelijk toegespitst op de besturingsstructuur van een pro- 
gramma. Dit begrip kan echter ook worden toegepast op de struc- 
tuur van de te verwerken gegevens. 


Arrays bieden de mogelijkheid om ook in dit opzicht gestructureerd 
te programmeren. Het gebruik van arrays verdient in het algemeen 
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de voorkeur bij de opslag en verwerking van groepen gelijkvormige 
gegevens., Voor kleine hoeveelheden gegevens kan meestal worden 
volstaan met enkelvoudige variabelen, vooral als er tussen de gege- 
vens geen gelijkvormigheid bestaat. 


Naast het gebruik van arrays voor het vastleggen van lijsten of 
tabellen waarbij de arraystructuur tevens de gegevensstructuur 
bepaalt (zoals in het voorbeeld van paragraaf 8.6) kunnen arrays 
ook worden toegepast voor het verwezenlijken van meer ingewikkel- 
de gegevensstructuren. Hieraan wordt een apart hoofdstuk gewijd 
(hoofdstuk 16). 


8.8 SAMENVATTING 


In dit hoofdstuk is het begrip array ingevoerd. Arrays worden in 
het algemeen gebruikt bij het verwerken van verzamelingen gelijk- 
soortige gegevens. Een array bestaat uit een aantal elementen 
(geindiceerde variabelen), waarbij elk element op dezelfde wijze 
kan worden gebruikt als een 'gewone', niet-geindiceerde variabele. 
De volgende kernbegrippen kwamen in dit hoofdstuk aan de orde. 


arraydeclaratie: Het reserveren of toewijzen van geheu- 
genruimte aan een array. De declara- 
tie: 


REAL GETAL(4) 


zorgt voor de toewijzing van geheugen- 
ruimte voor de vier arrayelementen 
GETAL(1), GETAL(2), GETAL(3) en 
GETAL(4). Elk van deze elementen 
kan op dezelfde wijze worden gebruikt 
als een niet-geïndiceerde REAL-varia- 
bele. De vier elementen beslaan yier 
aaneengesloten geheugenlokaties. 


arrayindex: Wordt gebruikt om aan een bepaald 
element van een array te kunnen refe- 
reren, In de uitdrukking GETAL(I) is 
de variabele I een arrayindex. Indices 
kunnen willekeurige INTEGER-expres- 
sies zijn, mits de waarde van de ex- 
pressie binnen de gedeclareerde 
arraygrenzen ligt. 
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arraygrenzen: 


overschrijden van 
arraygrenzen: 


meerdimensionale arrays: 


De toegestane maximum- en minimum- 
waarden van de arrayindices, Deze 
waarden worden bepaald door de 
arraydeclaratie. De ondergrens is in 
SF/k altijd 1. Gegeven de declaratie: 


INTEGER PRIJS(12, 3) 


kan elk element van PRIJS worden 
voorgesteld door PRIJS(I, J), waarbij 
I van 1 tot en met 12, en J van 1 tot 
en met 3 kan variëren, In volledig 
FORTRAN 77 kan men ook andere 
ondergrenzen dan 1 definiëren, bij- 
voorbeeld: 


REAL X(-5 : 10) 


Deze statement definieert 16 geïndi- 
ceerde REAL-variabelen: 


X(-5), X(-4), X(-3), ....., X(10) 


Het geval dat een arrayindex een 
waarde aanneemt die buiten het gede- 
clareerde waardebereik valt. Dit is 
niet toegestaan en zal doorgaans 
resulteren in het afbreken van het 
programma, 


Arrays met meer dan één index, zoals 
de array PRIJS in bovengenoemd voor- 
beeld. Elke index vertegenwoordigt 
daarbij een dimensie, Het aantal ele- 
menten van de array is gelijk aan het 
produkt van het aantal elementen per 
dimensie, 


8.9 OPGAVEN 


1. Wat drukt het onderstaande programma af? 


CHARACTER#G VERSJE(2) 
INTEGER REGEL, BISBIS 
VERSJE(1) = ‘A ROSE’ 
VERSJE(2) = ‘IS’ 
DO 5 BISBIS = 1, 3 
DO 3 REGEL = 1, 2 
PRINT #, VERSJE (REGEL) 


3 CONTINUE 

5 CONTINUE 
PRINT #, VERSJE(1) 
STOP 
END 


2. Wat drukt het onderstaande programma af? 


C DIT PROGRAMMA RODDELT 


CHARACTER#8 HIJ(4), ZIJ(4) 
INTEGER WIE 
PRINT &#, ‘HIER ZIJN WE DAN: ’ 
DO 8 WIE = 1, 4 
READ #, HIJ(WIE), ZIJ(WIE) 
PRINT #; ^ — ’, HIJ(WIE), ZIJ(WIE) 
8 CONTINUE 
PRINT #, HIJ(1), ’ ZEGT DAT ’, ZIJ(2), ’ VERLIEFD IS OP ’, HIJ(2) 
PRINT #, ‘MAAR --’ 
DO 12 WIE = 2, 3 
PRINT #, ZIJ(WIE), ’ ZEGT DAT ’, HIJ(WIE + 1), ’ ZEGT DAT ’ 
12 CONTINUE 
PRINT #, ZIJ(2), ’ MAAR WAT ZEGT.’ 


STOP 
END 

invoer: 

‘ JANTJE ’ ‘TRUUSJE ’ 

'PIETJE’ 'RIETJE’ 

'KLAASJE’ 'MIENTJE’ 


‘KARELTJE ’ ‘LIESJE ’ 
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3. 


Wat drukt het onderstaande programma af? 


C DIT PROGRAMMA BEKIJKT HOUTVERZORGINGSPREPARATEN 


CHARACTER#1O NAAM(50) 
INTEGER PRIJS(50) 
INTEGER LOPA N 
READ #:; N 
DO 3 Ia i N 
READ #, NAAM(I):; PRIJS(I) 
PRINT #, NAAM(I):, PRIJS(I) 
5 CONTINUE 
READ #,; P 
DO 15 I = 1; N 
IF (PRIJS(I) GT. P) THEN 
PRINT #,; NAAM(I) 


ENDIF 

13 CONTINUE 

STOP 

END 
invoer: 
3 
’ JOHNSONS ’ 518 
‘LEMON CIL’ 211 
*DOMINO ’ 341 
300 


. Een computerbestand bevat de beursnoteringen van aandelen 


voor twee opeenvolgende dagen. Een bestandrecord kan er bij- 
voorbeeld als volgt uitzien: 


GENERAL ELECTRIC! 93.50 81.50 


Gevraagd wordt een programma te schrijven dat eerst een lijst 
produceert van fondsen die met meer dan 10% daalden, en vervol- 
gens een lijst maakt van fondsen die met meer dan 10% stegen. 


Wat drukt het onderstaande programma af? Welke fout zou ont- 
staan door het invoegen van de invoerwaarde 'GERM' onmiddel- 
lijk voor de waarde 'KLAAR'? Leg uit hoe deze fout voorkomen 
zou kunnen worden door slechts één declaratie te veranderen. 
Voeg de nodige statements aan het programma toe om de tekst: 
‘BEDANKT, U BENT EEN FANTASTISCH PUBLIEK GEWEEST !' 
af te drukken indien meer dan 6 objecten worden ingelezen. 
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C DIT PROGRAMMA DRUKT EEN LIEDJE AF 


CHARACTER#10 OBJECT(8) 

INTEGER VERS, VU 

PRINT #, ‘SONG OF THE GREEN GRASS’ 
PRENT Ro." 7 

VERS = 1 

OBJECT(VERS) = ‘TREE’ 


5 IF (OBJECT(VERS) .EG. ‘KLAAR’) GOTO 10 

IF (VERS .EQ. 1) THEN 
PRINT #, ‘THERE WAS A TREE’ 

ELSE 
PRINT #, ‘AND ON THAT s” OBJECT (VERS-1) 
PRINT #, ‘THERE WAS A dn OBJECT (VERS) 
PRINT #, ‘THE PRETTIEST ‘» OBJECT (VERS) 
PRINT &#, ‘THAT YOU EVER DID SEE’ 


U = VERS 
G IF (V LB» 1) GOTO 8 
PRINT #, ‘AND THE ‘, OBJECT(Ų), 
$ ‘WAS ON THE ‘, OBJECT(V-1) 
va ye} 
GOTO 6 
8 CONTINUE 
ENDIF 


PRINT #, ‘AND THE TREE WAS IN THE GROUND’ 
PRINT #, ‘AND THE GREEN GRASS GREW ALL AROUND: ALL AROUND’ 
PRINT #, ‘AND THE GREEN GRASS GREW ALL AROUND 
PRENT Op T f 
VERS = VERS + 1 
READ #, OBJECT (VERS) 
GOTO 5 
10 CONTINUE 


STOP 
END 


invoer: 


‘BRANCH ’ 
‘NEST ’ 
‘BIRD’ 
‘WING’ 
‘FEATHER ’ 
FLEA” 
'KLAAR’ 
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6. Het kolder(?)lied ''M'n tante uit Marokko" heeft de volgende vorm: 


En AAA BBB CCC 
En AAA BBB CCC 
En AAA AAA 

AAA 


refrein: Zing ik: A ja jippie-jéh! 
Zing ik: A ja jippie-jêh! 
Zing ik: A ja jippie, a ja jippie 
a ja jippie-jéh! 


Voor de verschillende coupletten van dit lied hebben de codes 
AAA, BBB en CCC de volgende betekenis: 


couplet AAA BBB CCC 
1 m'n tante uit Marokko ja die komt hiep hoy 
2 ze rijdt op twee kamelen als ze komt hobbeldebobbel 
3 dan slachten we een varken als ze komt knor knor 
4 dan drinken we een glaasje als ze komt slurp slurp 
5 wat zullen we lekker smullen als ze komt smak smak 
6 m'n tante uit Marokko gaat weer weg daaag 
7 m'n tante uit Marokko is weer weg ` hè hè 


Gevraagd wordt een FORTRAN-programma te schrijven dat dit 
lied afdrukt. 


7. Op een politiebureau tracht men diefstallen op te lossen met 
behulp van een computer. Er zijn daarvoor twee bestanden 
beschikbaar. In de records van het ene bestand worden de naam, 
de lichaamslengte, het gewicht en het adres van notoire dieven 
vastgelegd. Het andere bestand bevat gegevens van onopgeloste 
diefstallen, en heeft de volgende vorm: 


'14 DEC: WINKELDIEFSTAL' 172 85 


' 9 NOV: AUTODIEFSTAL! 185 70 
' 6 NOV: FIETSDIEFSTAL' 175 65 
'XXX! 


De twee getallen in ieder record zijn een schatting van de lichaams- 
lengte en het gewicht van verdachten, en worden ingevuld aan de 
hand van het verstrekte signalement. Schrijf een programma dat 
beide bestanden inleest en lichaamslengte en -gewicht van de 
'notoiren' vergelijkt met de overeenkomstige gegevens in het an- 
dere bestand. Als lengte en gewicht binnen een marge van respec- 

- tievelijk 5 centimeter en 5 kilogram overeenstemmen, dient het 
programma de bijbehorende naam af te drukken. 


9 HET STRUCTUREREN VAN DE 
PROBLEEMAANPAK 


9.1 STAPGEWIJZE VERFIJNING 


De meeste van de tot nu toe behandelde programmeervoorbeelden 
zijn van betrekkelijk kleine omvang geweest. Desondanks hebben we 
aan de hand daarvan enkele goede programmeergewoonten kunnen 
illustreren zoals: 


1. het kiezen van betekenisvolle namen (identificatoren) voor varia- 
belen 

2. het becommentariëren van het programma om het begrijpelijker 
te maken 

3. het inspringen van lussen en IF - THEN - ELSE-statements om 
de besturingsstructuur beter zichtbaar te maken. 

4, het kiezen van toepasselijke gegevensstructuren 

5. het overlezen van programma's en het met de hand nasporen van 
het executieproces om reeds vóór het testen op de computer zo 
veel mogelijk fouten te elimineren. 


Zelfs bij kleine programma's kan men al veel profijt trekken van 
deze regels, maar pas bij de aanpak van grotere programma's kun- 
nen we echt de vruchten daarvan plukken. Bij het werken aan grotere 
programma's blijkt dat we ook de aanpak van het probleem kunnen 
structureren, 


Om een probleem op te lossen beginnen we met het schriftelijk vast- 
leggen van dat probleem, en vandaaruit werken we naar de uiteinde- 
lijke oplossing toe: een goedgestructureerd computerprogramma. De 
oorspronkelijke probleemvastlegging gebeurt in natuurlijke taal, wel- 
licht aangevuld met wat wiskundige formules. In dit hoofdstuk zullen 
we zien hoe we vanhieruit systematisch tot het uiteindelijke 
FORTRAN-programma kunnen komen. De methode die we hierbij 
gebruiken noemen we stapgewijze verfijning (Engels: stepwise refine- 
ment). Soms wordt hiervoor ook wel de term 'top-down' programme- 
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ring gebruikt omdat men als het ware van de 'top' (= het begin) van 
het probleem stapgewijs naar 'beneden' (dat wil zeggen naar de uit- 
eindelijke FORTRAN-oplossing) werkt. 


9.2 GEBRUIK VAN BOOMSTRUCTUUR 


Om de techniek van stapgewijze verfijning te illustreren hebben we 
een probleem nodig als voorbeeld. Dit probleem moet voldoende 
groot en complex zijn om de techniek te demonstreren, maar ook 
niet zo groot dat het moeilijk te overzien is, In het laatste geval 
zouden we overigens gebruik kunnen maken van een andere techniek, 
waarbij het totale probleem verdeeld wordt in een aantal modules, 
die men stuk voor stuk als afzonderlijke, kleinere problemen kan 
oplossen. Men noemt dit modulair programmeren. Ook dit is een 
vorm van gestructureerd programmeren, maar we kunnen hier pas 
verder op ingaan als SF/7 behandeld is. 


We gaan uit van het probleem dat een lijst met namen in alfabetische 
volgorde moet worden gesorteerd. Als eerste stap in het oplossen 
van dit probleem proberen we de probleemstelling uit te werken met 
behulp van een (omgekeerde) boomstructuur. Daarbij vormt de oor- 
spronkelijke probleemstelling als het ware de wortel van de boom. 
Vanuit deze probleemstelling komen we tot drie probleem 'takken': 


sorteer een lijst met 
namen in alfabetische 


volgorde 
lees de lijst | sorteer in druk de 
met namen alfabetische gesorteerde 
volgorde lijst af 


Bij elk van de drie ‘knooppunten! staat een probleemformulering in 
natuurlijke taal. Hierbij gaat het nog steeds om de vraag: ''wat 
moeten we doen? '' Niet: ''hoe moeten we het doen?" 


` Een formulering die aangeeft hoe we het een en ander moeten doen 
noemen we een algoritme. De verzameling aanwijzingen bij een 
bouwpakket voor een hifi-versterker is dus in wezen een algoritme 
voor het bouwen van zo'n versterker. Ook een recept in een kook- 
boek is op te vatten als een algoritme om een bepaald probleem (het 
produceren van een gerecht) op te lossen. 
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Bij het sorteerprobleem zullen we elke tak in de boomstructuur gaan 
vervangen door een algoritme waarin aangegeven wordt hoe het des- 
betreffende deelprobleem moet worden opgelost. Die algoritmen 
behoeven nog niet noodzakelijkerwijs in FORTRAN gesteld te worden. 
We gebruiken voorlopig een mengeling van natuurlijke taal en 
FORTRAN. Naarmate we specifieker worden, gebruiken we meer 
FORTRAN, totdat in de knooppunten die het verst van de wortel ver- 
wijderd zijn een volledig FORTRAN-programma ontstaat. Er treedt 
dus een geleidelijke verschuiving op van probleem naar oplossing. 


9.3 KEUZE VAN GEGEVENSSTRUCTUUR 


Alvorens meer takken aan de boomstructuur toe te voegen moeten we 
enkele beslissingen nemen ten aanzien van de gegevensstructuur. In 
dit stadium behoeven we nog niet alles vast te leggen, maar we kun- 
nen wel een begin maken. De beslissingen die we hierover nemen 
kunnen nu al in de vorm van FORTRAN-declaraties vastgelegd wor- 
den. 


Voor de opslag van de te sorteren namen gebruiken we een ééndimen- 
sionale array NAAM. We gaan uit van maximaal 50 namen, waarbij 
we per naam maximaal 30 tekens toestaan. De desbetreffende array- 
declaratie luidt: 


CHARACTER « 30 NAAM(50) 


Om het aantal namen bij te houden kiezen we een INTEGER-variabele 
N, waarvan de waarde ingelezen zal worden vanaf een invoerbestand. 
Bovendien hebben we nóg een INTEGER-variabele nodig om de array- 
elementen te indiceren; hiervoor gebruiken we de variabele I. Naast 
de bovenstaande declaratie hebben we dus de declaratie: 


INTEGER N, I 


nodig. Voorlopig nemen we aan dat we de gesorteerde lijst opslaan 
in hetzelfde geheugengebied als de oorspronkelijke lijst. Hiervoor 
is dus geen aparte declaratie nodig. Wel zal het nodig zijn de waar- 
den van de elementen anders te rangschikken. Daarbij zullen onver- 
mijdelijk verwisselingen moeten plaatsvinden. Teneinde de waarde 
van elementen te kunnen verwisselen reserveren we een extra 
CHARACTER * 30 variabele: HULP. Naast bovenstaande array- 
declaratie is dus de declaratie 


CHARACTER * 30 HULP 
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nodig. Eventueel kunnen we hiervoor ook de oorspronkelijke decla- 
ratie als volgt aanvullen: 


CHARACTER * 30 NAAM(50), HULP 


9,4 HET UITBOUWEN VAN DE BOOMSTRUCTUUR 


Nu enkele gegevensstructuren vastliggen, zijn we in staat de boom- 
structuur verder uit te werken. De linker- en rechtertakken kunnen 
zelfs zo ver worden ontwikkeld dat ze echte delen van het gevraagde 
FORTRAN-programma worden. De middentak kan enigszins worden 
verfijnd door te stellen dat het sorteerproces zal berusten op het 
verwisselen van de waarde van elementen. De boom ziet er nu als 
volgt uit: 


sorteer een lijst met 
namen in alfabetische 
volgorde 


DO 5 I= 1,N DO 60 I = 1,N 
READx, NAAM(I) PRINT x, NAAM(I) 
5 CONTINUE 60 CONTINUE 


verwissel elementen van 
NAAM totdat inhoud 
gesorteerd is 


De volgende verfijning zal bestaan uit het ontwikkelen van een algo- 
ritme voor het sorteerproces (de middentak). 


9.5 ONTWIKKELING VAN EEN SORTEERALGORITME 


Sorteren van een lijst in alfabetische volgorde houdt in dat van twee 
lijstelementen het in numeriek opzicht grotere element op het andere 
element moet volgen (zie hoofdstuk 7). In de gesorteerde lijst: 


HOLT 
HORNING 
HULL 


zijn de uitdrukkingen: 


( 'HORNING' .GT. 'HOLT' ) 
( 'HULL' .GT. 'HORNING' ) 


beide waar. Een alfabetische ordening is dus tevens een numeriek 
oplopende ordening. Een niet-gesorteerde lijst kunnen we daarom 
sorteren door steeds twee elementen -te beginnen bij het eerste 
paar- met elkaar te vergelijken, en, indien de eerste 'groter' is 
dan de tweede, hun inhoud te verwisselen, Als dit paarsgewijs 
gebeurt voor de hele lijst, staat na afloop van deze bewerking de 
grootste waarde -en dus de waarde die in alfabetische volgorde het 
'laatst' komt- in het laatste element van het array. Door dit te her- 
halen voor alle elementen behalve het laatste, komt de één na 'groot- 
ste! waarde in het voorlaatste element terecht. Wordt dit proces op 
deze wijze voortgezet tot en met het tweede paar, dan is de lijst 
gesorteerd. 


Eerste verfijning van de middentak 


De middentak van de boomstructuur kan nu in deze zin verder worden 
uitgewerkt. We gebruiken hiervoor een 'pseudotaal', dat wil zeggen 
een 'taal' waarbij we in eigen bewoordingen programmaconstructies 
weergeven, zonder ons te bekommeren over de syntaxis van de te 
gebruiken computertaal. De middentak wordt dan bijvoorbeeld: 


"Doe met LAATST variërend van N naar twee, 
verwissel elementen zodanig dat grootste in 
LAATST komt" 


Het 'doe'-gedeelte kunnen we verwezenlijken met een teller-bestuur- 
de lus, waarbij de teller met behulp van een hulpvariabele afloopt. 
Door ook het tweede gedeelte ('verwissel,.... ') verder te verfijnen 
krijgen we: 


"Doe met I variërend van 1 tot (LAATST-1), 
als element (I) .GT. element (I + 1) 
verwissel elementen" 


Dit laat zich betrekkelijk eenvoudig tot de volgende FORTRAN- 
statements vertalen: 


EINDE = LAATST - 1 
DO 25 I = 1, EINDE 
IF (NAAM(D .GT. NAAM(I + 1)) THEN 
verwissel elementen 
END IF 
25 CONTINUE 


In SF/k is het gebruik van een expressie als parameter van een DO- 
statement niet toegestaan, vandaar dat hierboven een hulpvariabele 
EINDE is geïntroduceerd. 


Verdere verfijning 


Nu rest ons nog de stap "verwissel elementen" te verfijnen. 

Ook hierbij moet gebruik worden gemaakt van een hulpvariabele, en 
wel om de waarde van één van de te verwisselen elementen tijdelijk 
te bewaren. De constructie is als volgt: 


HULP = NAAM(I) 
NAAM(D) = NAAM( + 1) 
NAAM(I + 1) = HULP 


Het volledige programma 


Als laatste stap kan nu het volledige programma worden samenge- 
steld: 


C SORTEER LIJST VAN N NAMEN IN ALFABETISCHE VOLGORDE 
CHARACTER#30 NAAM(50), HULP 
INTEGER I, LAATST, N» J: EINDE: TEST 

C LEES LIJST MET NAMEN 
READ #: N 


DOSI = 1, N 
READ #, NAAM(I) 


5 CONTINUE 

C VERWISSEL ELEMENTEN TOT LIJST GESORTEERD IS 

C DOE MET LAATST VARIEREND VAN N TOT 2 

C VERWISSEL ELEMENTEN ZODANIG DAT GROOTSTE IN LAATST KOMT 
LAATST = N 
TEST aN 1 


DO 30 J = 1, TEST 


C DOE MET I VARIEREND VAN 1 TOT (LAATST - 1) 
C ALS ELEMENT(I) .GT. ELEMENT(I+1) VERWISSEL ELEMENTEN 


EINDE = LAATST - 1 
DO 25 I = 1, EINDE 
IF (NAAM(I) .GT. NAAM(I+1)) THEN 


HULP = NAAM(I) 
NAAM(I) = NAAM(I+1) 
NAAM(I+1) = HULP 

ENDIF 
25 CONTINUE 
LAATST = LAATST - 1 
30 CONTINUE 
c DRUK GESORTEERDE LIJST AF 


DO GO I = 1, N 
PRINT #: NAAM(I) 
60 CONTINUE 


STOP 
END 


invoer: 


8 

‘ANNEKE ’ 
‘DINEKE ’ 
ANN’ 
‘ALLEN ’ 
‘AXELBLATT ’ 
’ JOAN’ 
'PEEIY” 
'AYNE’ 


Merk op dat de gebruikte pseudotaal in de vorm van commentaar in 
het programma is opgenomen. Commentaar dient een integraal deel 
te zijn van het totale ontwikkelingsproces, en behoort niet achteraf 
toegevoegd te worden. Pseudotaal leent zich overigens meestal uit- 
stekend voor commentaar-doeleinden. 
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9.6 EFFICIENCY OVERWEGINGEN 


Bij de hierboven geschetste probleemaanpak hebben we stap voor 

stap de oorspronkelijke probleemstelling omgevormd tot een volledig 
FORTRAN-programma. Vragen in de zin van: ''wat moeten we doen?" 
werden geleidelijk omgebogen naar antwoorden op die vragen, en zo 
ontstond gaandeweg een volledig algoritme. Het algoritme werd 

eerst gesteld in ‘natuurlijke! of pseudotaal, en aan de hand daarvan 
werd een FORTRAN-programma geschreven. 


Tijdens dit proces is geen enkele aandacht besteed aan de efficiency 
van het algoritme. Onder ‘efficiency! verstaan we in dit verband het 
doelmatig gebruik van de computer. Het zou bijvoorbeeld denkbaar 
zijn dat de lijst reeds in een vroeg stadium, of zelfs al aan het begin 
van het rekenproces, gesorteerd is. Ook dan zou het bovenstaande 
programma elementenparen tot het einde toe blijven vergelijken. 

Het programma of, beter gezegd, het algoritme is dus niet altijd 
even efficiënt. 


Bij gestructureerd programmeren gaat het in eerste instantie om 
het beheersen van de complexiteit van het programmeren. Het effi- 
ciency-aspect vertroebelt de principiële oplossing van het probleem, 
en is daarom tot nu toe buiten beschouwing gelaten. In dit stadium is 
het echter zaak de gevonden oplossing vanuit efficiency-oogpunt te 
bezien. Daarbij kan het nodig zijn om terug te gaan tot bepaalde 
punten in de boomstructuur, en sommige onderdelen te herzien. Als 
blijkt dat de efficiency hiermee gediend is en dat het sop de kool 
waard is, dan moet men niet schromen achteraf verbeteringen aan 
te brengen. In de volgende paragraaf zullen we dit aan de hand van 
het sorteerprogramma demonstreren. 


9.7 EEN BETER ALGORITME 


Om het gegeven algoritme te verbeteren moeten we teruggaan naar 
de middentak van de boomstructuur, en wel in het stadium ''verwis- 
sel elementen van NAAM totdat inhoud gesorteerd is''. In wezen 
hebben we dit opgevat als "verwissel elementen van NAAM zodanig 
dat aan het eind van het verwisselingsproces die lijst zeker gesor- 
teerd zal zijn", daarbij voorbijgaand aan de mogelijkheid dat de lijst 
reeds vóór het einde van het verwisselingsproces gesorteerd zou 
kunnen zijn. 


We passen de oorspronkelijke opmerking als volgt aan: 'verwissel 
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de elementen van NAAM zodanig, dat aan het einde van het verwissel- 
proces de lijst gesorteerd zou zijn, en beëindig dat proces eventueel 
voortijdig als blijkt dat de lijst reeds gesorteerd is''. Het zal duide- 
lijk zijn dat we nu een lus nodig hebben met een tweede conditie 

naast de reeds bestaande conditie. Deze tweede conditie heeft de 
vorm: 


IF ( lijst gesorteerd ) GO TO ... 


Hoe weten we echter wanneer de lijst gesorteerd is? Ook hiervoor 
hebben we een algoritme nodig. Een goed criterium zou zijn om te 
bepalen of tijdens het doorlopen van de binnenlus inderdaad elemen- 
ten worden verwisseld. Treden er geen verwisselingen op, dan moet 
de lijst op de juiste manier geordend zijn. Om dit te bepalen zouden 
we een variabele KLAAR kunnen gebruiken, die we bijvoorbeeld de 
waarde 1 geven als de lijst gesorteerd blijkt te zijn, en de waarde 0 
als de lijst nog ongesorteerd is. We gebruiken KLAAR hier als een 
zogenaamde vlag (Engels: flag). De buitenlus wordt dan bestuurd 
door: 


5 IF (KLAAR. EQ.1.OR.LAATST.LT.2) GO TO 10 
Hieraan gaan de volgende initialisaties: 


KLAAR = 0 
LAATST = N 


vooraf om de vlag en de tellerwaarde in te stellen. LAATST veran- 
deren we -zoals in het oorspronkelijke algoritme- door de state- 
ment LAATST = LAATST-1 net voor het einde van de lus. 


KLAAR wordt op 1 gesteld als blijkt dat in de binnenlus geen verwis- 
selingen hebben plaatsgevonden. Dit kan (onder andere) worden 
bereikt door deze variabele op 1 in te stellen alvorens de binnenlus 
te betreden, en op 0 terug te stellen als er een verwisseling plaats- 
vindt. | 

Het veranderde programmadeel is gegeven op p. 158. 


Deze statements vervangen de statements tussen '5 CONTINUE! 
en 'C DRUK GESORTEERDE LIJST AF' in het oorspronkelijke 
programma. 
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c VERWISSEL ELEMENTEN VAN LIJST TOT VERWISSELPROCES 
c VOLLEDIG DOORLOPEN IS, OF TOT KLAAR = 1 
KLAAR = 0 
LAATST = N 
5 IF (KLAAR .EQ. 1 .OR. LAATST .LT. 2) GOTO 30 
KLAAR = 1 | 


EINDE = LAATST = 1 


DO 25 I = 1, EINDE 
IF (NAAM(I) .GT. NAAM(I+1)) THEN 


KLAAR = O 
HULP = NAAM(I) 
NAAMI) = NAAM(I+1) 
NAAM(I+1) = HULP 
ENDIF 
25 CONTINUE 


| 
pa 


LAATST = LAATST 
GOTO 5 


30 CONTINUE 


9.8 ANDERE ALGORITMEN 


In ons voorbeeld bleek de efficiency van het sorteeralgoritme voor 
verbetering vatbaar. We gingen terug naar de boomstructuur, en 
aan de hand daarvan herschreven we een gedeelte van het program- 
ma. Het was hierbij eenvoudiger achteraf te corrigeren, dan van 
meet af aan met efficiency-aspecten rekening te houden. 


Vergelijken ten opzichte van een ’vaste’ waarde 


Sommige algoritmen laten zich echter niet zo gemakkelijk achteraf 
corrigeren. Bij het sorteerprobleem had het verwisselproces 
geheel anders kunnen verlopen. Als alternatieve oplossing kunnen 
we bijvoorbeeld elk element van de lijst vergelijken met het eerste. 
Als een element kleiner blijkt te zijn dan het eerste, zouden hun 
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waarden kunnen worden verwisseld. Na één verwissel'slag' zou de 
kleinste waarde van de lijst in het eerste arrayelement staan. Het 
proces zou dan herhaald kunnen worden vanaf het tweede element, 
vervolgens het derde element enzovoort, totdat de gehele lijst gesor- 
teerd is, 


De moeilijkheid hierbij is dat het niet optreden van verwisselingen 
tijdens het doorlopen van de lijst niet inhoudt dat de lijst gesorteerd 
is. Het betekent alleen dat de kleinste waarde al vooraan staat. Om 
te bepalen of verdere verwisselslagen overbodig zijn moeten de ele- 
menten onderling vergeleken worden: een tamelijk omslachtig pro- 
ces, Het eerste algoritme leent zich dus beter voor deze wijze van 
efficiency-verbetering dan het tweede. Als we van het tweede algo- 
ritme waren uitgegaan, hadden we de efficiency slechts kunnen ver- 
beteren door het algoritme volledig te herzien. 


Standaard algoritmen 


Voor vele standaardbewerkingen zoals sorteren zijn verschillende 
algoritmen ontwikkeld en op efficiency beoordeeld. Het beste algo- 
ritme hangt vaak af van de omstandigheden, Een algoritme kan bij- 
voorbeeld zeer geschikt zijn voor korte lijsten, maar het wat effi- 
ciency betreft laten afweten voor langere. Ons sorteeralgoritme is 
ook zeker niet het best denkbare. 


Het bepalen van 'de' beste methode is zeer moeilijk. Bestudeer 
daarom bij het programmeren van standaardbewerkingen de ver- 
schillende alternatieven, en probeer een algoritme te vinden dat af- 
gestemd is op het desbetreffende probleem. Vaak zijn kant-en-klare 
programma's beschikbaar die rechtstreeks aan het eigen programma 
gekoppeld kunnen worden. In dit geval wordt een tak van de boom- 
structuur dus vervangen door een voorgebouwde module, Dit sluit 
aan op het eerder genoemde begrip modulair programmeren. In de 
hoofdstukken 11 en 12 wordt hierop nader ingegaan. 


9.9 SAMENVATTING 


In voorgaande hoofdstukken hebben we ons voornamelijk beziggehou- 
den met het leren van een programmeertaal. Daarbij kwamen be- 
grippen als variabelen, lussen, literalen en arrays aan de orde. In 
dit hoofdstuk kwam de aanpak van het programmeren aan de orde, 


De methode van probleemoplossing die hier werd gepresenteerd is 
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gebaseerd op een 'verdeel-en-heers! tactiek, waarbij het oorspron- 
kelijke probleem in steeds kleinere deelproblemen wordt ontleed. 
Deze uiteenrafeling in deelproblemen kan visueel worden voorge- 
steld door een ‘omgekeerde! boom. 


Elk deelprobleem wordt uitgewerkt door een min of meer cyclische 
probleembenadering waarbij de oplossing eerst grof en vervolgens 
steeds meer verfijnd wordt gegeven. Men kan zich daarbij bedienen 
van pseudotaal om programmaconstructies los van de syntaxis van 
de programmeertaal vast te leggen. Als produkt van het verfijnings- 
proces ontstaat voor elk deelprobleem een programmafragment in 
FORTRAN, De programmafragmenten van de afzonderlijke deelpro- 
blemen vormen samen het uiteindelijke programma. 


Met deze methode wordt het probleem dus in wezen op verschillende 
abstractieniveaus geleidelijk opgelost, in plaats van direct aan het 
begin al FORTRAN-geschut in stelling te brengen. 


9.10 OPGAVEN 


1. Gevraagd wordt de computer een lijst met namen te laten lezen, 
gevolgd door een sluitrecord met ' ', en deze namen in omge- 
keerde volgorde te laten afdrukken. Het programma dient glo- 
baal de volgende vorm te hebben: 

a. lees alle namen in 

b. druk de namen in omgekeerde volgorde af 

De namen worden van deel (a) naar deel (b) doorgegeven door een 
array gedeclareerd door: 


CHARACTER + 10 NAAM(50) 


De index van de laatste geldige naam die we in deze array inle- 

zen wordt aan deel (b) doorgegeven door middel van een 

INTEGER-variabele AANTAL, Voeg op toepasselijke plaatsen 

commentaar toe om de doelstellingen van beide programmadelen 

vast te leggen. Beantwoord na het schrijven van het programma 

de volgende vragen: 

- kunt u zonder deel (b) te veranderen een andere manier beden- 
ken om deel (a) te schrijven? Hoe? 

- kunt u zonder deel (a) te veranderen een andere manier beden- 
ken om deel (b) te schrijven? Hoe? 


2. De administratie van een streekschool wenst een lijst van alle 
leerlingen uit Pijnacker, en een andere lijst van alle leerlingen 
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uit Nootdorp. Van elke leerling wordt een record bijgehouden 
waarop als eerste gegeven de naam en als tweede gegeven de 
woonplaats voorkomt. Voorbeeld: 


‘DAVID TILBROOK! "PIJNACKER! 
Het record wordt gevolgd door het afsluitrecord: 
XXX! ZAP 


De schoolprogrammeur heeft de volgende drie alternatieve 
structuren bedacht voor het programma dat aan de hand van dit 
bestand de gewenste lijsten produceert. 


Eerste alternatief: 

a, Lees namen en woonplaatsen en sla alle gegevens op in 
arrays. 

b. Druk de namen af van leerlingen die in Pijnacker wonen. 

c. Druk de namen af van leerlingen die in Nootdorp wonen. 


Tweede alternatief: 

a. Lees namen en woonplaatsen en sla alleen die gegevens in 
arrays op die betrekking hebben op leerlingen woonachtig in 
Pijnacker of Nootdorp. 

b. Druk de namen af van leerlingen die in Pijnacker wonen. 

c. Druk de namen af van leerlingen die in Nootdorp wonen. 


Derde alternatief: 

a, Lees namen en woonplaatsen, druk daarbij onmiddellijk de 
namen af van leerlingen woonachtig in Pijnacker, en sla 
alleen de gegevens van leerlingen woonachtig in Nootdorp in 
arrays op. 

b. Druk de namen af van leerlingen die in Nootdorp wonen. 


Stel dat het uiteindelijke programma slechts voldoende array- 
ruimte heeft voor maximaal 50 namen van leerlingen. Welk 
voordeel heeft dan de tweede programmastructuur ten opzichte 
van de eerste? 

Welke voordelen heeft de derde programmastructuur ten opzichte 
van de tweede ? 

Het is niet nodig ter beantwoording van deze vragen een program- 
ma te schrijven. 


. Een bedrijf wil weten welk percentage van haar totale verkoop 
geleverd wordt door elk van haar verkopers. Voor elke verkoper 
wordt een record bijgehouden waarin naam en omzet in guldens 
zijn aangegeven. Het bestand wordt afgesloten met een afsluit- 
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record met de loze naam 'NOBODY' en een omzet van nul gul- 
den. Het voorlopige ontwerp van een programma om de gewens- 
te percentages af te drukken heeft geresulteerd in de volgende 
programmastructuur: 


a. Lees de namen van de verkopers en hun omzetten in, en bepaal 
het totale verkoopbedrag voor alle verkopers samen. 

b. Bereken het omzetpercentage voor elke verkoper. 

c. Druk de namen van de verkopers af met bijbehorende percen- 
tages. 


Delen (a) en (c) zijn reeds in FORTRAN geschreven. U wordt 
gevraagd deel (b) in FORTRAN te schrijven, en de nodige decla- 
raties toe te voegen om het programma te completeren. Deel (a) 
ziet er als volgt uit: 


C LEES NAMEN VERKOPERS: BEDRAGEN EN BEPAAL OMZET 
TOTAAL = 0 
I= 1 
READ #, MAN(I), BEDRAG(I) 

5 IF (MAN(I) .EG. ‘NOBODY’) GOTO 10 


TOTAAL = TOTAAL + BEDRAG(I) 
Ed ME 
READ #, MAN(I), BEDRAG(I) 
GOTO 5 

10 CONTINUE 


Deel (c) ziet er als volgt uit: 
C DRUK NAMEN EN OMZETPERCENTAGES AF 


PRINT &#, ’ VERKOPER’, ’ PERCENTAGE’ 
nf 
30 IF (MAN(I) .EQ. /NOBODY’) GOTO 40 
PRINT #, MAN(I), PRCENT(I)} 
Tell | 
GOTO 30 
40 CONTINUE 


Deel (a) noch deel (c) mag bij het completeren van het program- 
ma veranderd worden. 


10 SF/6: IN- EN UITVOER MET 
FORMAT-BESTURING 


Tot nu toe hebben we één statement behandeld voor invoer (de READ- 
statement) en één voor uitvoer (de PRINT-statement). Deze state- 
ments waren lijstbestuurde in- en uitvoerstatements. Dit houdt 
onder meer in dat het bij de in- en uitvoer van datawaarden niet of 
nauwelijks nodig is ons over de opmaak van de gegevens te bekom- 
meren. We spreken hierbij ook wel van opmaakvrije in- en uitvoer 
(Engels: format-free I/O). Met deze statements konden we gegevens 
van een bestand of via het terminaltoetsenbord lezen of gegevens op 
de regeldrukker afdrukken. 


Bij uitvoer zullen we dikwijls behoefte hebben aan een andere gege- 
vensopmaak dan die, welke de lijstbestuurde PRINT ons biedt. 
Invoer is tot nu toe meer flexibel geweest. We konden bijvoorbeeld 
REAL-getallen met of zonder exponent (zoals 2. 532E1 respectieve- 
lijk 25. 32) invoeren. Bovendien konden de in te voeren gegevens 
onderling op een willekeurige wijze over het invoerrecord worden 
verdeeld, mits twee opeenvolgende invoerwaarden door minstens 
één spatie gescheiden waren. Er waren daarbij geen standaard- 
veldlengten zoals bij uitvoer op de regeldrukker. 


In dit hoofdstuk komen andere versies van de READ- en PRINT- 
statement ter sprake. Bij deze versies wordt gebruik gemaakt van 
FORMAT-besturing (Engels: format control) om de vorm van in of 
uit te voeren gegevens nauwkeurig te kunnen specificeren. Deze 
nieuwe versies bieden een grotere flexibiliteit dan de oorspronke- 
lijke, maar zijn qua vorm en gebruik wel ingewikkelder, Vandaar 
dat we destijds met de relatief eenvoudige lijstbestuurde READ en 
PRINT zijn begonnen. 


10.1 OPMAAKBESCHRIJVING 


Elke FORMAT-bestuurde READ- of PRINT -statement is door middel 
van een label verbonden met een tweede statement (de FORMAT- 
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statement) waarin de opmaak van de in te lezen of uit te voeren 
gegevens wordt beschreven. De label wordt direct na het sleutel- 
woord READ of PRINT gecodeerd en in het labelveld van de desbe- 
treffende FORMAT-statement herhaald, In het voorbeeld: 


PRINT 3, 'ZEbKOCHTb', N, 'bEIEREN! 
3 FORMAT ('1', A9, 12, A7) 


is 3 zo'n label. De label zelf moet 'uniek' zijn, dat wil zeggen dat 
hij in het programma slechts één keer in het labelveld van een 
statement mag voorkomen. De label mag wel in meerdere PRINT- 
(of READ-) statements worden gebruikt. Heeft N bijvoorbeeld de 
waarde 12 dan wordt afgedrukt: 


ZEbKOCHTbI2bEIEREN 


Op het hoe en waarom hiervan gaan we hieronder nader in, 


De wagenbesturing van de regeldrukker 
De opmaakbeschrijving in de FORMAT-statement bestaat uit: 
(GAD T2 AT) 


Hierin is '1' een literaal waarmee de wagenbesturing van de regel- 
drukker wordt ingesteld. Er zijn verschillende instellingen moge- 
lijk. Aan dit onderwerp wordt in dit hoofdstuk een afzonderlijke 
paragraaf gewijd. We volstaan hier met de mededeling dat de gege- 
ven tekst dankzij deze literaal aan het begin van een nieuwe pagina 
wordt afgedrukt. 


Veldbeschrijvers 


De lijst bevat verder de gegevens A9, I2 en A7. Dit zijn zogenaamde 
veldbeschrijvers (Engels: field descriptors). Tussen deze drie veld- 
beschrijvers en de drie elementen van de uitvoerlijst bestaat een 
zeker verband. De eerste veldbeschrijver (A9) heeft betrekking op 
het eerste element van de uitvoerlijst (de literaal 'ZEbKOCHTb'), 

de tweede veldbeschrijver (12) heeft betrekking op het tweede ele- 
ment (de variabele N), en de derde veldbeschrijver (A7) heeft 
betrekking op het laatste element (de literaal 'bEIEREN'). 


De veldbeschrijvers geven aan dat de daarmee verbonden elementen 
van de uitvoerlijst moeten worden afgedrukt in opeenvolgende velden 
van respectievelijk 9, 2 en 7 posities. Tussen de velden onderling 
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worden geen scheidingsspaties afgedrukt zoals bij de lijstbestuurde 
PRINT. 


In principe moet voor elk element van een in- of uitvoerlijst een 
bijbehorende veldbeschrijver in een FORMAT-statement aanwezig 
zijn. 


Opmaakcodes 


De letters van de gegeven veldbeschrijvers bepalen de vorm van de 
af te drukken gegevens. Ze worden opmaakcodes genoemd (Engels: 
format codes). A heeft betrekking of alfanumerieke opmaak, I op 
INTEGER-opmaak. Naast deze codes bestaan ook andere, bijvoor- 
beeld F- en E-opmaakcodes voor het afdrukken van REAL-waarden 
in basis- of exponentnotatie. Dit wordt in de navolgende paragrafen 
uitvoerig behandeld. Opmaakcodes dienen in overeenstemming te 
zijn met het datatype van de overeenkomstige variabelen in in- of 
uitvoerlijsten. 


10.2 HET AFDRUKKEN VAN REAL-WAARDEN (F- EN E-CODES) 


De F-opmaakcode 


De F-opmaakcode wordt gebruikt om REAL-waarden in basisnotatie 
af te drukken, dat wil zeggen als een gewoon decimaal getal. Het 
aantal af te drukken decimalen kan men zelf instellen. De state- 
ments: 


PRINT 8, 4.0/3.0, 2, 0/3.0 
8 FORMAT (' ', F10.4, F6. 3) 


bijvoorbeeld, leveren de volgende uitvoer: 
bbbb1. 3333b0. 667 


De literaal ' ' zorgt voor het instellen van een nieuwe regel. Het 
eerste getal na de F van elke veldbeschrijver geeft de totale veld- 
lengte van het af te drukken gegeven aan. Het tweede getal, na de 
punt, geeft aan hoeveel decimalen afgedrukt moeten worden. Zono- 
dig wordt hierbij afgerond. De getallen worden rechtsaangesloten 
in hun velden afgedrukt. 
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Bij het gebruik van de F-code is aandacht nodig voor de grootte van 
het af te drukken getal. Men dient de grootte-orde daarvan dus te 
weten of althans te schatten, om de veldlengte ruim genoeg te kun- 
nen specificeren. Bij het specificeren van de veldlengte dient ook 
rekening te worden gehouden met posities voor het decimaalteken 
en eventueel een minteken. De algemene vorm van een F-veldbe- 
schrijver is Fw.d, waarbij w de veldlengte en d het aantal cijfers 
na het decimaalteken voorstelt. 


Een voorbeeld 


De afmetingen van een doos zijn in 1/100 centimeter nauwkeurig als 
volgt in een bestandrecord opgenomen of op de terminal ingetoetst: 


10. 31 4.25 6. 35 


Het onderstaande programma berekent de inhoud van de doos 
met een nauwkeurigheid van 2 cijfers na de komma. 


REAL LENGTE, BREEDT, HOOGTE, INHOUD 
READ 2#, LENGTE, BREEDT, HOOGTE 
INHOUD = LENGTE # BREEDT # HOOGTE 
PRINT 1, INHOUD 


1 FORMAT (’ ‘, F14.2) 
STOP 
END 

invoer: 


10.31. 4.25 6,35 


De uitvoer is: 
bbbbbbbb278. 24 


Aangezien er slechts één af te drukken waarde is, is er maar één 
veldbeschrijver nodig, namelijk F14. 2. 


De E-opmaakcode 


REAL-waarden kunnen ook in exponentvorm onder FORMAT-bestu- 
ring worden afgedrukt. Bij de opmaakvrije PRINT werd steeds het- 
zelfde aantal cijfers na de decimale punt afgedrukt, met een nul vóór 
de decimale punt. Doorgaans worden er zeven cijfers na de punt 
afgedrukt; dit is meestal het maximum aantal cijfers dat werkelijk 
zinnig ofwel significant is. Getallen worden immers in geheugen- 
lokaties van beperkte grootte opgeslagen, en daarom is ook de nauw- 
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keurigheid waarmee men ze kan voorstellen beperkt. Met behulp van 
de E-code kan men desgewenst minder cijfers na de komma laten 
afdrukken, of de veldlengte van het getal verminderen. De veldbe- 
schrijver E12.3 bijvoorbeeld, specificeert een veldlengte van 12 
posities met 3 cijfers na de decimale punt. De statements: 


PRINT 7, -12. 3665E1 
7 FORMAT (' ', E13,4) 


zou dus als uitvoer leveren: 
bb-0.1237Eb03 


Merk op dat afronding plaatsvindt, en dat het getal rechtsaangesloten 
in het veld wordt afgedrukt. Naast het gewenst aantal cijfers na de 
komma moet men bij het specificeren van de veldlengte rekening 
houden met minimaal zeven extra posities: één voor het teken, één 
voor de nul, één voor de decimale punt, en vier voor de exponent. 
De algemene vorm van de E-veldbeschrijver is Ew.d, waarbij w de 
veldlengte, en d het aantal cijfers na het decimaalteken voorstelt. 


10.3 HET AFDRUKKEN VAN TEKST (A-CODE) 


Tekst kan worden afgedrukt met een veldbeschrijver van de vorm: 
Aw 


waarbij w het aantal af te drukken tekens voorstelt. In het boven- 
staande programma voor de berekening van een inhoud hadden de 
uitvoerstatements er bijvoorbeeld zo kunnen uitzien: 


PRINT 13, 'INHOUDLIS', INHOUD, ' KUBIEKEbCM' 
13 FORMAT (' ', A9, F7,2, All) 


Dit zou als uitvoer hebben geleverd: 
INHOUD IS 278,24 KUBIEKE CM 
Hierbij is de veldlengte van de numerieke waarde gereduceerd, en 


is de veldlengte in de A-veldbeschrijvers zo gespecificeerd dat de af 
te drukken gegevens netjes op elkaar aansluiten. 
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10.4 HET AFDRUKKEN VAN INTEGER-WAARDEN (I-CODE) 


De veldbeschrijver voor INTEGER-waarden heeft de vorm: 
Iw 


waarbij w de veldlengte voorstelt. Ook INTEGER-waarden worden 
rechtsaangesloten in hun velden afgedrukt. 


Voorbeeld 
De statements: 


PRINT 1, 235, 26, 5261 
1 FORMAT (' ', I4, I3, 16) 


produceren de volgende uitvoer: 


b235b26bb5261 


10.5 WAGENBESTURINGSCODES 


In SF/k moet elke FORMAT-statement waarmee een opmaakspeci- 
ficatie voor de regeldrukker wordt gegeven een wagenbesturings- 
code bevatten. Deze code wordt als een literaal onmiddellijk na de 
openingshaak van de FORMAT-statement geschreven. We hebben 
reeds gezien dat de literaal ' ' de wagen van de regeldrukker 
instelt op de beginpositie van de eerstvolgende regel, zoals dat bij 
de opmaakvrije PRINT-statement automatisch gebeurde. Eveneens 
hebben we gezien dat de literaal '1' de regeldrukker instelt op de 
eerste positie van een nieuwe pagina. 


Er bestaan nog twee andere wagenbesturingscodes, de nul ('0') en 
de plus ('+'). De nul heeft tot gevolg dat een regel wordt overgesla- 
gen (dubbele spatiëring). De plus heeft tot gevolg dat de regeldruk- 
ker wordt ingesteld op de eerste positie van de regel die zojuist 
werd afgedrukt, zodat deze regel opnieuw kan worden bedrukt. 


Een voorbeeld: 


PRINT 2, 'IS O EEN GRIEKSE LETTER?! 
2 FORMAT ('0', A24) 

PRE a Lt / 
3 FORMAT ('+', A4) 


Hierbij wordt eerst een blanco regel gegeven, waarna de tekst 'IS 
O EEN GRIEKSE LETTER?' wordt afgedrukt. Op dezelfde regel 
wordt vervolgens de literaal ' /' afgedrukt, waardoor de uitvoer 
er als volgt uitziet: 


IS Ø EEN GRIEKSE LETTER? 


Het teken '/' wordt hierbij dus over de 'O' gedrukt. 


10.6 HET INLEZEN VAN GETALLEN 


Het gebruik van de opmaakvrije READ-statement biedt een belang- 
rijke mate van vrijheid. Men is niet gebonden aan specifieke inde- 
lingen en bovendien kunnen REAL-getallen zowel in exponent- als 
in basisnotatie worden ingevoerd. Toch kunnen er redenen zijn om 
gebruik te maken van een FORMAT-bestuurde READ-statement. 


Een reden zou kunnen zijn het converteren bij inlezen van een 
INTEGER- naar een REAL-waarde. Hierbij kan gebruik worden 
gemaakt van de eerder besproken veldbeschrijver Fw.d. De in te 
lezen INTEGER beslaat een veldlengte van 4 posities, en wordt 
rechtsaangesloten in het desbetreffende veld gezet. Door middel 
van de d-specificatie in de veldbeschrijver kunnen nu bij het inlezen 
een aantal cijfers van het "INTEGER''-veld als cijfers na de deci- 
male punt worden opgevat. Stel, bijvoorbeeld, dat meetresultaten 
in centimeters beschikbaar zijn, en dat we deze waarden willen 
inlezen en opslaan in meters. Hiertoe zouden we de volgende 
opdrachten kunnen geven: 


READ 4, BREED 
4 FORMAT (F5. 2) 


_ De INTEGER-constante 416, rechtsaangesloten in de eerste vijf 
posities van het invoerveld, zou dan geïnterpreteerd worden als een 
REAL-getal met de waarde 4. 16, en als zodanig in de variabele 
BREED worden opgeslagen. 
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INTEGER-waarden kunnen overigens rechtstreeks worden ingelezen 
met behulp van de in paragraaf 10.4 behandelde veldbeschrijver Iw. 
Bij het positioneren van invoerwaarden dient de nodige voorzichtig- 
heid te worden betracht omdat blanco posities opgevat worden als 
nul. 


De invoerwaarde 1bbb, ingelezen met behulp van de constructie: 


READ 5, GETAL 
5 FORMAT (14) 


levert voor GETAL de waarde 1000. Hierbij is aangenomen dat 
GETAL een INTEGER-variabele is. 


10.7 HET INLEZEN VAN TEKST (A-CODE) 


Een minder gelukkige omstandigheid bij het gebruik van de opmaak- 
vrije READ-statement is dat alfanumerieke gegevens met apostrof- 
fen moeten worden aangegeven. Bestanden zouden bijvoorbeeld 
beschikbaar kunnen zijn waarin gegevens zoals namen en adressen 
zonder apostroffen zijn opgenomen. Mits consequent in vaste velden 
geplaatst, kunnen deze gegevens worden ingelezen door middel van 
de eerder besproken alfanumerieke veldbeschrijver Aw, waarbij w 
de veldlengte aangeeft. Als de namen bijvoorbeeld linksaangesloten 
zijn in de eerste 30 posities, adressen in de volgende 42 posities 
en een INTEGER-code in de volgende 7 posities, zouden de volgen- 
de statements voor de gewenste invoer zorgen: 


READ 4, NAAM, ADRES, CODE 
4 FORMAT (A30, A42, 17) 


Omdat de uitvoering van elke READ-statement het inlezen van een 
nieuwe regel tot gevolg heeft, wordt de laatste positie (positie 80) 
van elk record niet gelezen. 


10.8 HET POSITIONEREN VAN IN- OF UITVOERWAARDEN 
(X-CODE) 


Enkele veldbeschrijvers zijn niet gerelateerd aan bepaalde in of uit 
te voeren datawaarden. Zo heeft bijvoorbeeld de veldbeschrijver 
nX betrekking op het overslaan van posities bij invoer, of het over- 
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slaan van posities bij uitvoer; n geeft hierbij het aantal posities aan 
dat moet worden overgeslagen. 


Bijvoorbeeld, de statements: 


PRINT 3, 'BEDRAG', 'BTW', 'PRIJS! 
3 FORMAT (' ', 5X, A6, 4X, A3, 5X, A5) 


zouden als uitvoer de tekst: 
bbbbbBEDRA GbbbbBT WbbbbbPRIJS 
leveren. 


Dergelijke constructies kan men onder andere toepassen bij het af- 
drukken van kolomidentificaties. Eventuele spaties behoeven dan 
niet in de literalen opgenomen te worden. 


10.9 HET INLEZEN EN AFDRUKKEN VAN CHARACTER- 
ARRAYS 


Soms moet een dataregel in zijn geheel als eenheid worden gelezen. 
Als DREGEL bijvoorbeeld gedeclareerd is als een CHARACTER 

x 80 variabele, kan de regel gelezen worden door middel van de 
statements: 


READ 1, DREGEL 
1 FORMAT (A80) 


Als het echter de bedoeling is de informatie in de verschillende 
posities onafhankelijk van elkaar te verwerken, kan het inlezen 
beter op een andere wijze plaatsvinden. Hierbij declareert men 
DREGEL als een CHARACTER * 1 array van 80 elementen. De ele- 
menten van DREGEL leest men in met behulp van een nAw-veldbe- 
schrijver, waarbij n een repetitiefactor voorstelt. De leesopdrach- 
ten zijn dan: À 


READ 6, DREGEL 
6 FORMAT (80A1) 


In dit geval worden 80 alfanumerieke velden -elk 1 positie lang- 
gelezen. Het teken in de eerste positie wordt opgeslagen in 
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DREGEL(1), de inhoud van de tweede in DREGEL(2), enzovoort. 
Dankzij deze constructie kan het programma de dataregel positie 
voor positie analyseren. Het volgende programmafragment bepaalt 
of positie 1 (om welke reden dan ook) een vraagteken bevat: 


IF (DREGEL(1). EQ. '2') THEN 
PRINT 7, 'VRAAGTEKEN IN POSITIE 1: ', DREGEL 
7 FORMAT (' ', A23, 80A1) 
END IF 


De n in de veldbeschrijver nAw moet hierbij dus even groot zijn als 
de lengte van de array. 


10.10 SAMENVATTING 


In dit hoofdstuk zijn de FORMAT-bestuurde READ- en PRINT- 
statements behandeld. Bij deze statements wordt gebruik gemaakt 
van veldbeschrijvers om de in- en uitvoerbewerkingen nader te spe- 
cificeren. De FORMAT-bestuurde PRINT-statement heeft de vorm: 


PRINT label, variabelen gescheiden door komma's 


label FORMAT (wagenbesturingscode, veldbeschrijvers 
gescheiden door komma's) 


De wagenbesturingscode is een van de volgende literalen: 


code betekenis 

Kaa begin een nieuwe regel 

ik begin een nieuwe pagina 

0! dubbele spatiëring 

in opnieuw bedrukken van de 'huidige' regel 


FORMAT-bestuurde READ-statements hebben veel overeenkomst 
met FORMAT-bestuurde PRINT-statements, maar bevatten geen 
wagenbesturingscode., Ze hebben de vorm: 


READ label, variabelen gescheiden door komma's 
label FORMAT (veldbeschrijvers gescheiden door komma's) 
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Variabelen genoemd in READ- en PRINT-statements kunnen, behou- 
dens één uitzondering, geen volledige arrays zijn. De uitzondering 
geldt voor ééndimensionale arrays van het type CHARACTER. In 
dit geval kan de gehele array worden gelezen met behulp van de nAw 
veldbeschrijver. 


De volgende veldbeschrijvers zijn beschikbaar in SF/k: 


algemene voorbeeld werking 

vorm 

nX 3X „overslaan van de volgende n posities 
Iw I5 inlezen of afdrukken van een INTEGER 


in een veld van w posities 


Fw.d F6. 2 inlezen of afdrukken van een REAL 
getal in basisnotatie, bijvoorbeeld 
216.53, met een veldlengte van w posi- 
ties, en d decimale cijfers 


Ew.d E12.5 inlezen of afdrukken van een REAL 
getal in exponentnotatie, bijvoorbeeld 
0.21653E+03, met een veldlengte van 
w posities, en d decimale cijfers 


Aw A5 inlezen of afdrukken van w alfanume- 
rieke tekens 


nA w 80A1 inlezen of afdrukken van n alfanume- 
rieke velden van elk w tekens in res- 
pectievelijk vanuit een CHARACTER *w 
array van n elementen 


Hierbij geldt het volgende: 


- n, w en d stellen INTEGER-constanten voor, zonder teken en 
ongelijk nul 


- REAL-waarden worden bij het afdrukken zonodig afgerond 


- getallen ingelezen met behulp van I, F en E veldbeschrijvers moe- 
ten rechtsaangesloten in hun velden worden geplaatst 


Ipit is een SF/k-beperking. 
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- getallen afgedrukt met behulp van I, F en E veldbeschrijvers ver- 
schijnen rechtsaangesloten in hun velden 


- elke variabele in een opmaakbestuurde READ of PRINT moet ver- 
gezeld zijn van een I, F, E of A veldbeschrijver 


- de CHARACTER-variabele of literaal die bij een Aw veldbeschrij- 
ver behoort dient zelf w tekens lang te zijn 


- de X veldbeschrijver kan voorafgegaan of afgewisseld worden door 
I, F, E en A veldbeschrijvers, maar dient niet als laatste veldbe- 
schrijver voor te komen. 


De volgende voorbeelden illustreren het gebruik van opmaakbestuur- 
de READ- en PRINT-statements: 


1 


uitvoer: 


2 


uitvoer: 


3 


invoer: 


PRINT 1, 24, 5 
FORMAT ('b', 12, 3X, 12) 


24bbbb5 

PRINT 2, 61.248E+00 
FORMAT ('b', F7. 2) 
bb61. 25 

READ 3, DREGEL 
FORMAT (80A1) 


leest 80 tekens in. 


10.11 OPGAVEN 


1. Wat wordt afgedrukt ten gevolge van de onderstaande statements ? 
Neem aan dat J een INTEGER, Y een REAL en C een 
CHARACTER *>*15 variabele is. 


j = 
Y = 5.427 


C = 'OPMAAK-PROEFJE' 
PRENT i, J3. Y€ 
1 FORMAT (' ', 1X, 13, F6.2, 2X, A14) 
PRINT 2, C, Y 
2 FORMAT ('0', A14, F6. 1) 
o R a ' 
3 FORMAT ('*" A14) 


2. Wat wordt afgedrukt ten gevolge van de onderstaande statements ? 
Neem aan dat KRDIET een INTEGER-variabele is. 


KRDIET = 2154 

PRINT 1, 'OKTOBER KREDIET: ', KRDIET 
1 FORMAT (' ', A17, 15) 

KRDIET = KRDIET - 10000 

PRINT 2, 'BIJGEWERKT: ', KRDIET 


2 FORMAT (' ', A12, 5X, I5) 
PRINT 3, 'U WINT ', 100000000 

3 FORMAT ('0', A7, 110) 
PRINT 4, 10000 

4 FORMAT ('0', 6X, 16) 
PRINT 5, KRDIET 

5 FORMAT (' ', 6X, 16) 
e E 

6 FORMAT ("', 6X, A6) 
PRINT 7, 'TOTAAL', 2154 

7 FORMAT ('0', A6, 1X, 16) 


3. Schrijf een programma dat alle tekens in een dataregel (inclusief 
spaties) inleest en afdrukt, gebruikmakend van een A-opmaakcode. 


4. De eerste 5 posities van een dataregel bevatten 5 cijfers. 
Schrijf een combinatie van READ/FORMAT-statements om deze 
cijfers in te lezen en aan de 5 INTEGER-variabelen A, B, C, D 
en E toe te kennen. 


5. Bij een geautomatiseerde voorraadadministratie gebruikt men 
de volgende recordindeling ten behoeve van bestellingen (zie p. 
p. 176). Schrijf een READ-statement met bijbehorende FORMAT- 
statement om artikelnummer en -naam in te lezen in de variabe- 
len ARTNUM en ARTNAM die als volgt zijn gedeclareerd: 


INTEGER ARTNUM 
CHARACTERx11 ARTNAM 


Bij het lezen dienen de posities 6 t/m 16 te worden overgeslagen. 
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6. 


posities inhoud 

1- 5 artikelnummer 

6-12 naam leverancier 
13-14 maand waarin voor het eerst besteld 
15-16 jaar waarin voor het eerst besteld 
17-27 artikelnaam 


Schrijf een programma dat een kalender afdrukt. Het programma 
dient de dag van de week op 1 januari en het jaartal in te lezen. 
Het programma kan bepalen of het desbetreffende jaar een 
schrikkeljaar is door middel van de volgende IF-THEN-ELSE- 
constructie: 


IF (MOD(JAAR, 4). EQ. 0) THEN 


FEB = 29 
ELSE 

FEB = 28 
END IF 


De standaardfunctie MOD levert in dit geval de waarde nul voor 
alle jaartallen die exact deelbaar zijn door 4. Bespaar op papier- 
gebruik door meerdere maanden op één bladzijde af te drukken, 
of door het nummer van de gewenste maand in te lezen en slechts 
die maand af te drukken. Probeer ook het gehele jaar op één 
pagina af te drukken. 


Schrijf een programma om maandoverzichten te produceren voor 
de rekeninghouders bij een bank. Op p.177 staat een voorbeeld 
van zo'n overzicht. 

Daarbij werd de volgende invoer gebruikt: 


14 DEC 1984 

MEVR. MARIE BEYER 
BOULEVARD 999 

1234 AB SCHEVENINGEN 
8881-605223 

16 NOV 114142 

21 NOV 2000 

22 NOV 1500 

25 NOV 1685 

28 NOV 84146CR 

08 DEC 15449 

14 DEC 6012 

00 XXX 0 


ALGEMENE NEDERLANDSE BANK 


PERIODE 


EINDIGEND D.D. 


14 DEC 1984 


AF 
2000 
1500 
1685 


15449 
6012 


BIJ: 1 


MEVR. MARIE BEYER 


BOULEVARD 999 


1234 AB SCHEVENINGEN 


REKENING- 
NUMMER 


8881-605223 


BIJ 


84146 


84146 
26646 


VORIG SALDO 


DATUM 


NOV 16 


DATUM 


NOV 21 


NOV 22 
NOV 25 
NOV 28 
DEC 08 
DEC 14 


BEDRAG 


114142 


SALDO 


112142 


110642 
108957 
193103 
177654 
171642 


(EINDSA LDO) 


11 SF/7: SUBPROGRAMMA's 


In deze subset wordt het begrip subprogramma ingevoerd. Subpro- 
gramma's past men toe om grotere programma's te kunnen splitsen 
in een aantal kleinere programma's, zodat men gecompliceerde pro- 
gramma's met een ‘verdeel en heers! tactiek te lijf kan gaan. Soms 
kan een (deel-)oplossing van een probleem dermate universeel zijn, 
dat het ook bij andere problemen kan worden gebruikt. Door zo'n 
oplossing in de vorm van een subprogramma te gieten, creëert men 
als het ware een bouwsteen of module die in vele andere program- 
ma's te gebruiken is. 


11.1 HET DEFINIEREN VAN EEN SUBPROGRAMMA 


Als voorbeeld van een subprogramma gaan we uit van het in hoofd- 
stuk 9 behandelde sorteerprogramma. In dit hoofdstuk gieten we 

dit programma in de vorm van een subprogramma. Aan zo'n sub- 
programma moeten bepaalde gegevens worden toegevoegd, in dit 
geval onder andere de naam van de gegevenslijst -bijvoorbeeld 
LIJST- en het aantal elementen van die lijst, bijvoorbeeld N. Als 
resultaat levert het subprogramma de gesorteerde lijst. Men zegt 
dat het subprogramma twee invoerparameters heeft, LIJST en N, en 
één uitvoerparameter LIJST, dat wil zeggen de oorspronkelijke lijst 
maar dan in alfabetische volgorde. 


De definitie van zo'n subprogramma vangt aan met een zogenaamd 
SUBROUTINE-statement, waarin de naam van het subprogramma en 
de parameters worden vastgelegd, bijvoorbeeld: 


SUBROUTINE SORT(LIJST, N) 
De naam van het subprogramma -SORT- geeft men na het sleutel- 


woord SUBROUTINE aan. Na de naam worden tussen haakjes de 
parameters gecodeerd. 
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In ons voorbeeld is LIJST, zoals gezegd, zowel een invoer- als een 
uitvoerparameter. 


Het datatype van alle parameters moet binnen het subprogramma 
worden gedeclareerd. De declaratie van de (array-)variabele LIJST 
-een CHARACTER array- moet de lengte van elk element aangeven. 
Het aantal elementen van die array moet overeenkomen met het aan- 
tal elementen van de lijst zoals die in het hoofdprogramma voorkomt, 
waarin van dit subprogramma gebruik wordt gemaaktl., In ons voor- 
beeld gaan we uit van 50 elementen. De declaraties luiden dus: 


INTEGER N 
CHARACTER * 30 LIJST (50) 


Naast deze declaraties moeten ook die variabelen worden gedecla- 
reerd die noch invoer- noch uitvoerparameters zijn, maar toch 
nodig zijn voor het functioneren van het subprogramma. Overeen- 
komstig het sorteerprogramma van hoofdstuk 9 zullen we gebruik 
maken van de INTEGER-variabelen I, LAATST, GRENS en KLAAR, 
en van de CHARACTER-variabele HULP. 


De volledige definitie van het subprogramma is dan: 
SUBROUTINE SORT(LIJST, N) 

= DIT SUBPROGRAMMA SORTEERT EEN LIJST MET NAMEN 

c PARAMETERS: 


CHARACTER#30 LIJST(50) 
INTEGER N 


C LOKALE VARIABELEN: 


CHARACTER#30 HULP 
INTEGER I» LAATST: GRENS, KLAAR 


C VERWISSEL ELEMENTEN TOTDAT ARRAY GESORTEERD IS 


KLAAR = 0 
LAATST = 0 


10 IF (KLAAR .EG. 1 .OR. LAATST .LT. 2) GOTO 35 
KLAAR = 1 
GRENS = LAATST - 1 
DO 25 I = 1, GRENS 
IF (LIJST(I) .GT. LIJST(I+1)) THEN 
KLAAR = 0 
HULP = CIJST(I) 
LIJST(I) = LIJST(I+1) 
LIJST(I+1) = HULP 


ENDIF 
25 CONTINUE 
LAATST = LAATST - 1 
GOTO 10 
35 CONTINUE 
RETURN 
END 


l Geldt alleen voor SF/k. \ 
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De in dit subprogramma opgenomen RETURN-statement heeft een 
soortgelijke functie als de STOP-statement bij een hoofdprogramma. 
Bij de uitvoering wordt de besturing echter overgedragen aan het aan- 
roepende programma in plaats van aan het bedrijfssysteem. 


Subprogramma's kunnen na de END van het hoofdprogramma wor- 
den geplaatst, of eventueel aan het hoofdprogramma voorafgaan. 


11.2 HET AANROEPEN VAN EEN SUBPROGRAMMA 


In de vorige paragraaf hebben we een subprogramma geschreven 
voor het alfabetisch sorteren van een lijst, In deze paragraaf laten 
we zien hoe zo'n subprogramma kan worden gebruikt. 


Merk op dat het inlezen van de te sorteren lijst, en het afdrukken van 
de gesorteerde lijst niet in het subprogramma zijn opgenomen. We 
schrijven nu een hoofdprogramma dat gebruik maakt van het subpro- 
gramma SORT, en zelf de desbetreffende in- en uitvoer verzorgt. 
Als voorbeeld zullen we -zoals in hoofdstuk 9- een lijst met namen 
inlezen, sorteren en afdrukken. 


C DIT PROGRAMMA MAAKT GEBRUIK VAN SUBPROGRAMMA SORT 
CHARACTER#30 NAAM(50) 
INTEGER AANTAL: I 

C LEES LIJST MET NAMEN 


READ #, AANTAL 
DO 5 I = 1, AANTAL 
READ 3, NAAM(I) 
3 FORMAT (A30) 
5 CONTINUE 


CALL SORT(NAAM, AANTAL) 

G DRUK GESORTEERDE LIJST AF 
DO 10 I = 1, AANTAL 

PRINT 8, NAAM(I) 

B FORMAT (’ ’, A30) 

10 CONTINUE 


STOP 
END 


C ### subproaramma SORT hier invoesen ### 


invoer: 


4 
SCOTT, G.D. 
COLLINS, A. 
NEWMAN, C. 
PHILLIPS, F.C. 


Uit dit voorbeeld blijkt het gemak van een subprogramma. Slechts 
één statement: 


CALL SORT(NAAM, AANTAL) 


is voldoende om de gehele lijst te laten sorteren. Deze CALL-state- 
ment noemen we de aanroep (Engels: reference) van het subprogramma. 
Het aanroepende programma is in dit geval een hoofdprogramma, 
maar zou evengoed zelf een subprogramma kunnen zijn. Op dit aspect 
zullen we later uitgebreider ingaan. De variabelen NAAM en AANTAL 
noemen we actuele parameters (Engels: arguments) in tegenstelling 
tot de formele parameters (Engels: dummy arguments) in het sub- 
programma zelf. 


11.3 FORMELE EN ACTUELE PARAMETERS 


Formele parameters zijn identificatoren die in de definitie van een 
subprogramma worden gebruikt om aan te duiden wat het subpro- 
gramma als invoer nodig heeft, en wat het als uitvoer levert. Actu- 
ele parameters zijn expressies -veelal slechts variabelen- die in de 
aanroep van een subprogramma voorkomen. Ze dienen wat betreft 
aantal en datatype overeen te komen met de formele parameters. 


Parameters kan men beschouwen als een communicatiemedium tus- 
sen programma's en subprogramma's. Formele parameters bezet- 
ten daarbij niet altijd eigen geheugenlokaties, maar zijn door middel 
van een wijzer (Engels: pointer) gekoppeld aan de 'echte' variabelen: 
de actuele parameters. 

Variabelen die in een subprogramma voorkomen en geen formele 
parameters zijn, hebben een 'plaatselijke' betekenis. Ze houden 
geen verband met variabelen buiten het eigen subprogramma, zelfs 
niet met gelijknamige variabelen. Deze variabelen zijn als het ware 
'lokaal'. In tegenstelling tot formele parameters, bezetten lokale 
variabelen altijd eigen geheugenlokaties. 


Communicatie 


Het communicatieproces tussen aanroepend en aangeroepen (sub-) 
programma vindt plaats, zoals gezegd, via de parameters. In ons 
voorbeeld stemmen de actuele parameters NAAM en AANTAL over- 
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een met de formele parameters LIJST en N. Het uitvoeren van de 
subprogramma-statement: 


LIJST(I) = LIJST (1) 
is dan equivalent met het uitvoeren van de statement: 
NAAM(I) = NAAM (+1) 


In het volgende schema geven we een overzicht van de formele en 
actuele parameters, en van de lokale variabelen die in ons voorbeeld 
zijn gebruikt. 


aanroepend programma subprogramma 
actuele parameters formele lokale 
parameters variabelen 

NAAM LIJST 

AANTAL N 
I 
LAATST 
GRENS 
KLAAR 
HULP 


Herhaald aanroepen 


Bij elke aanroep van een subprogramma worden de waarden van de 
actuele parameters als het ware overgedragen aan de formele. 
Binnen één programma kan een subprogramma verschillende malen 
worden aangeroepen, desgewenst ook met andere (actuele) parame- 
ters. Omdat de lokale variabelen geen betekenis hebben buiten het 
subprogramma, dienen ze binnen het subprogramma zelf een waarde 
te krijgen. 


Documentatie 


Bij de documentatie van een subprogramma is het van belang te ver- 
melden aan welke parameters het subprogramma waarden toekent, 
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of welke parameters door het subprogramma worden gemodificeerd. 
Zonder deze vermelding dient men de waarde van een parameter 
niet te wijzigen. In ons voorbeeld blijft N ongewijzigd. De lokale 
variabele LAATST krijgt aanvankelijk de waarde van N toegekend, 
en wordt vervolgens gewijzigd. 


11.4 CONSTANTEN ALS ACTUELE PARAMETERS 


In het volgende voorbeeld laten we zien hoe constanten als actuele 
parameters kunnen worden gebruikt, We gaan uit van een subpro- 
gramma, TOTAAL, dat de N elementen van een INTEGER-array 

ARRAY sommeert. 


C SOMMEER DE N ELEMENTEN VAN EEN ARRAY 


SUBROUTINE TOTAAL(ARRAY, N: SOM) 
INTEGER N; SOM, I 
INTEGER ARRAY (N) 
SOM = 0 
DO 5 I = 1, N 
SOM = SOM + ARRAY(I) 
5 CONTINUE 
RETURN 
END 


Merk op dat het aantal gedeclareerde elementen van ARRAY varia- 
bel is, namelijk N. Zo'n variabele declaratie is uitsluitend mogelijk 
in subprogramma's. Merk ook op, dat N eerst als INTEGER gede- 
clareerd moet zijn, alvorens hij in de arraydeclaratie kan worden 
gebruikt. 


We schrijven vervolgens een programma waarin TOTAAL wordt 
aangeroepen. Dit programma bepaalt het totale bedrag van een aan- 
tal uitstaande rekeningen. 


C DIT IS EEN HOOFDPROGRAMMA DAT GEBRUIK MAAKT VAN 
C SUBPROGRAMMA TOTAAL 


INTEGER UITREK(5), I; BEDRAG 
DO 10 I= 1, 5 
READ #, UITREK(I) 
10 CONTINUE 
CALL TOTAAL(UITREK, 53, BEDRAG) 
PRINT #, ‘TOTAAL BEDRAG = ‘, BEDRAG 
STOP 
END 


invoer: 
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De uitvoer is: 
TOTAAL BEDRAG = bbbbbbbbbb91 


Merk op dat in dit voorbeeld de actuele parameter UITREK overeen- 
komt met de formele parameter ARRAY. Dat wil zeggen: een bewer- 
king op ARRAY(1) in het subprogramma is in wezen een bewerking op 
-en een verwijzing naar- het array-element UITREK(I). Het is dan 

ook van belang dat het aantal elementen van beide arrays gelijk is. 


Bij het gebruik van constanten als actuele parameters dient men de 
uiterste voorzichtigheid te betrachten, Binnen het subprogramma 
mag de desbetreffende formele parameter dan in geen geval worden 
gemodificeerd, Pogingen dit toch te doen resulteren in het gunstig- 
ste geval in een foutmelding. Bij het gebruik van compilers die niet 
op het modificeren van constanten controleren kunnen de gevolgen 
rampzalig zijn, omdat de interne representatie van de constante 
wordt aangetast. 


Veelal wordt bij subprogramma's waarin arrays voorkomen, gebruik 
gemaakt van twee parameters per array: één om de maximale 
grootte van de array aan te geven, en één om het aantal elementen 
aan te geven dat eigenlijk wordt gebruikt. 


Merk op dat identificator I zowel in het hoofdprogramma als in het 
subprogramma wordt gebruikt. Ze worden behandeld als totaal ver- 
schillende variabelen, omdat ze slechts lokale betekenis hebben. 
Later zullen we zien hoe programma's en subprogramma's gemeen- 
schappelijke variabelen kunnen hebben, en wel buiten het parameter- 
mechanisme om. 


11.5 FUNCTIES 


Er bestaan twee soorten subprogramma's. Tot nu toe hebben we 
uitsluitend het subroutine subprogramma -kortweg subroutine 
genoemd- behandeld. In deze paragraaf gaan we nader in op het 
zogenaamde functie subprogramma, kortweg functie genoemd. 


F unctiesubprogramma's kunnen meerdere parameters hebben, maar 
leveren als resultaat slechts één waarde. In tegenstelling tot het 
subroutinesubprogramma is deze waarde niet gebonden aan een 
bepaalde parameter, maar aan de aanroep van de functie zelf, Het 
gebruik van een functiesubprogramma is in wezen dan ook niet 
anders dan het gebruik van de eerder genoemde 'standaard'-functie 
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SQRT. Willen we bijvoorbeeld de wortel van A? + B° toekennen aan 
een variabele C, dan schrijven we: 


C = SQRT(A xx 2 + B xx 2) 


waarbij de functiewaarde verbonden is aan de uitdrukking rechts van 
het toekenningsteken, dat wil zeggen de aanroep. 


Kenmerkend voor een standaardfunctie is dat hij via de compiler 
zonder meer beschikbaar is. Functieprogramma's moeten we echter 
zelf schrijven. De definitie van zo'n functie heeft de volgende alge- 
mene vorm: 


type FUNCTION naam(parameter(s)) 
declaratie van parameters 
declaratie van andere variabelen 
andere statements 

naam = functiewaarde 

RETURN 

END 


Net als subroutines kunnen functieprogramma's voor of na het 
hoofdprogramma worden geplaatst. 


Een functie die wel standaard is in FORTRAN 77 maar niet in SF/k 
is één die de lengte van een reeks tekens bepaalt. De functie heeft 
de vorm: 


LEN(tekenreeks) 


en levert een INTEGER-waarde. Als voorbeeld zullen we een soort- 
gelijke functie zelf programmeren. In tegenstelling tot LEN zullen 
we deze functie spaties niet als teken laten meerekenen. De functie 
geven we de naam LENGTE. De algemene vorm van LENGTE is: 


INTEGER FUNCTION LENGTE(REEKS,N) 
declaraties REEKS, N 

declaratie van andere variabelen 

andere statements 

LENGTE = functiewaarde 

RETURN 

END 


We kunnen deze functie alleen dan programmeren, als we er vanuit 
gaan dat een bepaald teken niet tot de reeks behoort, en derhalve kan 
dienen om het einde van de reeks te signaleren. De reeks zelf slaan 
we op in een CHARACTER-array van maximaal N elementen, waar- 
bij elk element één teken kan bevatten. We noemen deze array 
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REEKS, en nemen aan dat het eerste element geen spatie is. De vol- … 
ledige definitie van de functie ziet er dan als volgt uit: 


C DEZE FUNCTIE BEPAALT DE LENGTE VAN EEN TEKENREEKS 
C AFGESLOTEN MET EEN SPATIE 


INTEGER FUNCTION LENGTE(REEKS, N) 
CHARACTER#1 REEKS(N) 


INTEGER N 
INTEGER I 
C ONDERZOEK REEKS OP AANWEZIGHEID VAN SPATIE 
Le} 
5 IF (REERKS(I) EG. 4 GTO 10 
r. iwwi 
GOTO 5 


10 CONTINUE 
LENGIS = I~ 4 


RETURN 
END 


In het volgende programma wordt de functie LENGTE aangeroepen. 
C LEES WOORDEN EN BEPAAL HUN LENGTE 


CHARACTER*1 WOORD(30) 
INTEGER LENGTE 
READ 10: WOORD 
10 FORMAT (30A1) 
15 IF (WOORD(I) .EQ. +’) GOTO 40 
PRINT 20, LENGTE(WOORD:, 30) 


20 FORMAT (’ ‘, IZ) 
READ 30, WOORD 
30 FORMAT (30A1) 
GOTO 15 
40 CONTINUE 
STOP 
END 
invoer: 
BLOEMKOLEN 
BLOEMKOOL 


BLOEM 
+ 


Merk op dat in het aanroepende programma LENGTE als een 
INTEGER-waarde gedeclareerd moet zijn. De uitvoer van het pro- 
gramma is: 


10 
9 
9 


11.6 VERSCHILLEN TUSSEN SUBROUTINES EN FUNCTIES 


Een wezenlijk verschil tussen subroutine- en functiesubprogramma's 
is dat subroutines de mogelijkheid bieden om als het ware nieuwe 
FORTRAN-statements te creëren, terwijl functies de mogelijkheid 
bieden nieuwe operaties te definiëren. We zullen dit illustreren aan 
de hand van het volgende voorbeeld. 


Voorbeeld met een subroutine 


Stel dat we van twee INTEGER-waarden de grootste willen bepalen. 
Dit zou als volgt gedaan kunnen worden: 


C DIT PROGRAMMA LEEST 2 GETALLEN, EN DRUKT DE GROOTSTE AF 


INTEGER DATA1: DATAZ, MAX1 

READ #, DATAi: DATAZ 

CALL GROOT2(DATA1, DATAZ, MAX1) | 
PRINT #, ‘DE GROOTSTE WAARDE IS ’, MAXI 
STOP 

END 


C DEZE SUBROUTINE BEPAALT HET GROOTSTE VAN TWEE GETALLEN 


SUBROUTINE GROOTZ(EERSTE, TWEEDE, RESULT) 
INTEGER EERSTE, TWEEDE, RESULT 
IF (EERSTE .GT. TWEEDE) THEN 
RESULT = EERSTE 
ELSE 
RESULT = TWEEDE 
ENDIF 
RETURN 
END 


invoer: 
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Bij de aanroep van GROOT 2 door middel van de statement: 
CALL GROOT2(DATA1, DATA2, MAXI) 


worden de actuele parameters DATA1, DATA2 en MAX1 als het ware 
gekoppeld aan de formele parameters EERSTE, TWEEDE respectie- 
velijk RESULT. Subroutine GROOT2 wordt uitgevoerd, en de groot- 
ste van de waarden EERSTE en TWEEDE (in wezen dus DATA1 res- 
pectievelijk DATA2) wordt toegekend aan RESULT (in wezen MAXI). 


Bij het bereiken van de RETURN-statement wordt de uitvoering van 
het hoofdprogramma hervat, en wel bij de statement die volgt na de 
CALL. Dit is een PRINT-statement, Gegeven de invoerwaarden 5 
en 31 drukt het programma de volgende regel af: 


DE GROOTSTE WAARDE IS bbbbbbbbbb31 


In wezen hebben we dus met behulp van ons subprogramma een 
nieuwe FORTRAN-statement gecreëerd waarmee we de grootste van 
twee INTEGER-waarden kunnen bepalen. Uiteraard is dit een 
betrekkelijk eenvoudig voorbeeld, en zou het in de praktijk niet of 
nauwelijks de moeite waard zijn voor zo'n bewerking een subpro- 
gramma te schrijven. 


Hetzelfde voorbeeld met een functie 


Het bepalen van de grootste van twee INTEGER-waarden kan ook 
met behulp van een functiesubprogramma plaatsvinden. Hoofd- en 
subprogramma zien er dan bijvoorbeeld als volgt uit: 


C DIT PROGRAMMA LEEST 2 GETALLEN: EN DRUKT DE GROOTSTE AF 


INTEGER GROOT2 

INTEGER DATA1, DATAZ: MAX1 

READ #, DATA1, DATAZ 

MAX1 = GROOT2(DATA1:, DATAZ) 

PRINT #, ‘DE GROOTSTE WAARDE IS ‘, MAX1 
STOP 

END 


C DEZE FUNCTIE BEPAALT HET GROOTSTE VAN TWEE GETALLEN 


INTEGER FUNCTION GROOT2(EERSTE, TWEEDE) 
INTEGER EERSTE, TWEEDE 
IF (EERSTE .GT. TWEEDE) THEN 
GROOT2 = EERSTE 
ELSE 
GROOT2 = TWEEDE 
ENDIF 
RETURN 
END 


invoer: 


5 
31 


De uitvoer is gelijk aan die van het vorige programma: 


DE GROOTSTE WAARDE IS bbbbbbbbbb31 


In grote lijnen verloopt de uitvoering van beide programma's gelijk. 
Bij de aanroep van GROOT2 worden de actuele parameters DATA1 
en DATA2 als het ware gekoppeld aan de formele parameters 
EERSTE respectievelijk TWEEDE. De functie GROOT2 wordt aan- 
geroepen bij de uitvoering van de toekenningsstatement: 


MAX1 = GROOT2(DATA1, DATA2) 


en de grootste van de waarden EERSTE en TWEEDE (in wezen 
DATA1 respectievelijk DATA2) wordt toegekend aan de functie 
GROOT2, Merk op dat er nu geen derde parameter nodig is zoals 

in de subroutine-versie. Bij het bereiken van de RETURN-statement 
wordt de uitvoering van het hoofdprogramma hervat, en wel bij het 
toekennen van de waarde van GROOT2 aan MAXI. 


In wezen hebben we met behulp van dit functiesubprogramma een 
nieuwe rekenkundige operatie gecreëerd om de grootste van twee 
INTEGER-waarden te bepalen. Zonder de uitvoer te veranderen 
hadden we de toekenning aan MAX1 kunnen vermijden door de func- 
tieaanroep rechtstreeks in de PRINT-statement op te nemen, bij- 
voorbeeld: 


PRINT *, 'DE GROOTSTE WAARDE IS', GROOT2(DATA1, DAT A2) 


Conclusies 


De gegeven voorbeelden illustreren de volgende verschillen tussen 
subroutines en functies: 


- er is geen datatype verbonden aan de naam van een subroutine; 

- aan de naam van een functie is wel een datatype verbonden, en dit 
datatype moet zowel in de FUNCTION-statement als in het aan- 

_ roepende programma worden gedefinieerd; 

- de waarde die een functie levert moet overeenstemmen met het 
gedeclareerde datatype; 

- een subroutine wordt aangeroepen door middel van een zelfstandi- 
ge statement (CALL); 

- een functie wordt aangeroepen tijdens de evaluatie van de expres- 
sie waarin die functie voorkomt. 
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11.7 SUBPROGRAMMA’S EN NESTEN 


Subroutines 


Eenmaal gedefinieerd, kan een subroutine door middel van een CALL” 
als elk ander FORTRAN-statement worden gebruikt. Ook binnen een 
subprogramma zelf kunnen CALL-statements voorkomen. Men 

noemt dit het nesten van een subprogramma. We zullen enkele een- 
voudige voorbeelden geven om dit te illustreren. De volgende job 
drukt de grootste van drie INTEGER-waarden af: 


C DIT PROGRAMMA LEEST 3 GETALLEN, EN DRUKT DE GROOTSTE AF 


INTEGER DATA1:, DATAZ: DATA3:, MAXI 

READ #, DATA1, DATAZ: DATA3 

CALL GROOT3(DATAL:, DATAZ: DATA3: MAXI) 
PRINT #, ‘DE GROOTSTE WAARDE IS ’, MAX1 
STOP 

END 


C DEZE SUBROUTINE BEPAALT HET GROOTSTE VAN TWEE GETALLEN 


SUBROUTINE GROOT2(EERSTE, TWEEDE, RESULT) 
INTEGER EERSTE, TWEEDE, RESULT 
IF (EERSTE .GT. TWEEDE) THEN 
RESULT = EERSTE 
ELSE 
RESULT = TWEEDE 
ENDIF 
RETURN 
END 


C DEZE SUBROUTINE BEPAALT HET GROOTSTE VAN DRIE GETALLEN 


SUBROUTINE GROOTS(EERSTE:, TWEEDE, DERDE, RESULT) 
INTEGER EERSTE, TWEEDE, DERDE, RESULT 

INTEGER GRTSTE 

CALL GROOT2(EERSTE, TWEEDE, GRTSTE) 

CALL GROOTZ(GRTSTE, DERDE ; RESULT) 


RETURN 
END 
invoer: | 
5 
31 
27 


De uitvoer hiervan is: 
DE GROOTSTE WAARDE IS bbbbbbbbbb31 


Subroutine GROOT3 bepaalt welke van zijn drie invoerparameters de 
grootste is, en voertdeze waarde terug naar het aanroepende program- 
ma door middel van de uitvoerparameter RESULT. Dit wordt bereikt 
door vanuit GROOT3 de subroutine GROOT2 aan te roepen, die eerst 
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de grootste van de eerste twee parameters bepaalt en toekent aan 
GRTSTE. Vervolgens wordt GROOT2 opnieuw aangeroepen om de 
grootste waarde van GRTSTE en de derde parameter te bepalen. 


Subroutines GROOT2 en GROOT3 maken beide gebruik van de para- 
meters EERSTE, TWEEDE en RESULT. Zoals eerder gezegd 
levert dit geen problemen, omdat beide subroutines zelfstandige 
(sub-)programma-eenheden zijn. 


Functies 


Ook functie-aanroepen kan men nesten. We zullen dit illustreren 
aan de hand van hetzelfde probleem als in de vorige paragraaf. 


C DIT PROGRAMMA LEEST 3 WAARDEN EN DRUKT DE GROOTSTE AF 


INTEGER GROOTZ2 

INTEGER DATA1, DATAZ, DATA3 

READ #, DATA1:, DATAZ: DATAS 
PRINT #, ‘DE GROOTSTE WAARDE IS ’, 


$ GROOTZ(GROOTZ(DATA1, DATAZ): DATAZ) 
STOP 
END 
C DEZE FUNCTIE LEVERT HET GROOTSTE VAN TWEE GETALLEN 


INTEGER FUNCTION GROOTZ(EERSTE, TWEEDE) 
INTEGER EERSTE, TWEEDE — 
IF (EERSTE .GT. TWEEDE) THEN 

GROOT2 = EERSTE 


ELSE 
GROOT2 = TWEEDE 

ENDIF 
RETURN 
END 

gegevens: 

5 
31 
27 


In het hoofdprogramma wordt eerst de grootste van de eerste twee 
parameters bepaald met behulp van de aanroep: 


GROOT2(DATA1, DAT A2) 


Deze waarde -in feite 31- wordt dan als eerste parameter 
gebruikt in een tweede aanroep van GROOT2. 
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Recursiviteit 


Recursiviteit is het verschijnsel dat een subprogramma zo is gede- 
finieerd dat het bij uitvoering zichzelf aanroept. Voor een subrou- 
tine kan men dit schematisch aangeven als: 


SUBROUTINE naam1(parameter(s)) 
declaraties | 

eventuele andere statements 

CALI naam1l(parameter(s)) 
eventuele andere statements 
RETURN 

END 


Voor een functie geldt het schema: 


type FUNCTION naaml(parameter(s)) 
declaraties 

eventuele andere statements 

.... = naaml(parameter(s)) ... 
eventuele andere statements 

naaml = ... 

RETURN 

END 


Recursiviteit is in FORTRAN niet toegestaan, maar kan wel worden 
gesimuleerd. Daarover later meer. 


11.8 VARIABELEN IN COMMON 


Inleiding 


Tot nu toe hebben we gezien dat bij de aanroep van een subprogram- 
ma de actuele parameters één voor één met de formele parameters 
moeten overeenkomen. Overeenkomstige parameters moeten van 
gelijke datatype zijn. Overeenkomstige array-parameters moeten 
van gelijke datatype en dimensie zijn. Overeenkomstige parameters 
die tekst bevatten moeten van gelijke lengte zijn. Met uitzondering 
van de actuele parameters zijn de variabelen van een aanroepend 
programma niet bereikbaar vanuit het aangeroepen subprogramma. 
Omgekeerd zijn de variabelen van een subprogramma, met uitzonde- 
ring van de formele parameters, niet bereikbaar vanuit een aan- 
roepend hoofd- of subprogramma. Het enige tot nu toe behandelde 
communicatiemedium tussen aanroepend en aangeroepen (sub-) 
programma is dus de parameterlijst. 
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De COMMON-statement 


Naast programmacommunicatie door middel van de parameterlijst 
is communicatie ook mogelijk met behulp van een gemeenschappe- 
lijk geheugengebied dat men COMMON noemt. Variabelen in een 
COMMON-gebied (ook wel COMMON-blok genoemd) kunnen bereik- 
baar zijn vanuit twee of meer programma's en/of subprogramma's. 
Hiertoe moet men, naast datatype-declaraties, ook declareren 
welke variabelen in een COMMON-gebied moeten worden opgeslagen. 
Eventueel kan men gebruik maken van meerdere COMMON-gebieden. 
Elk COMMON-gebied moet dan door middel van een identificator 
worden benoemd, en men spreekt dan van labeled of benoemd 
(Engels: named) COMMON. Maakt men slechts gebruik van één 
COMMON-gebied, dan is benoeming niet vereist. Onbenoemde 
COMMON-gebieden noemt men unlabeled of blank. 


Elk COMMON-gebied moet apart worden gedefinieerd door middel 
van een aparte COMMON-statement. Deze statement heeft de vol- 
gende vorm: 


COMMON /naam/ lijst van variabelen 


Deze statement moet in elk programma -hoofd- of subprogramma- 
voorkomen dat toegang tot het desbetreffende COMMON-gebied moet 
hebben. Lijsten van variabelen in bij elkaar behorende COMMON- 
statements moeten identiek zijn1. 


De volgorde van declaraties! in een subprogramma is: 


- declaratie van (eventuele) parameters 

declaratie van de namen van eventueel aangeroepen functies 
declaratie van COMMON-gebieden 

declaratie van lokale variabelen 


CHARACTER- en andere datatypen mogen overigens niet samen in 
één COMMON voorkomen. 


Een voorbeeld 


In dit voorbeeld laten we een programma zien dat twee verschillen- 
de subroutines aanroept. De subroutines hebben geen parameter- 
lijsten omdat alle communicatie door middel van COMMON- gebieden 
plaatsvindt. De eerste twee zijn toegankelijk voor alle programma's 
en hebben de namen KLASSE en NAMEN. Het andere gebied heet 


l Geldt slechts voor SF/k. 
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GRENS en is toegankelijk voor het hoofdprogramma en de subrou- 
tine INTER. Beide subroutines hebben één lokale variabele met de 
naam I. 


In het hoofdprogramma wordt een lijst met namen en examencijfers 
van studenten ingelezen, waarbij de cijfers als percentages zijn 
aangegeven. Gevraagd wordt de namen van die studenten af te druk- 
ken die een cijfer hebben behaald dat binnen een bepaald interval 
ligt. De grenzen van het interval moet men kunnen instellen met 
een afzonderlijk record. Dit record bevat tevens een uit één letter 
bestaande classificatie voor dat interval. In dit voorbeeld gaan we 
uit van het interval 50 t/m 59, dat we aanduiden met de letter D. 

De programma's zien er als volgt uit: 


C DIT PROGRAMMA MAAKT EEN LIJST VAN STUDENTEN MET EXAMEN- 
C CIJFERS BINNEN EEN BEPAALD INTERVAL 


COMMON /NAMEN/ STUDNT 
CHARACTER#25 STUDNT (40) 
COMMON /KLASSE/ CIJFER, AANTAL 


INTEGER CIJFER(40), AANTAL 
COMMON /GRENS/ MAXI, MINI 
INTEGER MAXI, MINI 
CHARACTER#1 LETTER 
C LEES LETTERCLASSIFICATIE EN INTERVALGRENZEN 


READ #, LETTER, MINI, MAXI 


C LEES NAMEN EN CIJFERS VAN STUDENTEN: EN BEPAAL AANTAL 
C STUDENTEN MET CIJFER IN OPGEGEVEN INTERVAL 


CALL INVOER 
PRINT #, ‘STUDENTEN MET LETTERCLASSIFICATIE ‘, LETTER 


C DRUK NAMEN AF VOOR GEGEVEN INTERVAL 
CALL INTER 
STOP 
END 

> INVOER VAN NAMEN EN CIJFERS 


SUBROUTINE INVOER 

COMMON /NAMEN/ STUDNT 
CHARACTER#25 STUDNT (40) 

COMMON /KLASSE/ CIJFER, AANTAL 


INTEGER CIJFER(40) ; AANTAL 
INTEGER I 
Is i 
READ #, STUDNT(I), CIJFERS(I) 
S IF (STUDNT(I) .EQ. ‘222’) GOTO 6 
Ee a 


READ #, STUDNT(I):, CIJFER(I) 
GOTO 5 
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G CONTINUE 

AANTAL = I = 1 

RETURN 

END 
C DRUK NAMEN AF VAN STUDENTEN MET EXAMENCIJFERS IN 
C GEGEVEN INTERVAL 


SUBROUTINE INTER 

COMMON /NAMEN/ STUDNT 
CHARACTER#25 STUDNT (40) 

COMMON /KLASSE/ CIJFER, AANTAL 


INTEGER CIJFER(40), AANTAL 
COMMON /GRENS/ MAXI, MINI 

INTEGER MAXI; MINI 
INTEGER I 


DO 10 I = 1, AANTAL 
IF (CIJFER(I) .GE. MINI .AND. CIJFER(I) .LE. MAXI) THEN 
PRINT #, STUDNT(I), CIJFERCIJ) 
ENDIF 
10 CONTINUE 
RETURN 
END 


invoer: 


’D’ 30 59 

‘BRODIE:, MICHAEL’, 84 
‘SPARKS, MICHAEL’, 52 
“KOHLMANN, HANS’, 100 
TEAR. O 


In dit voorbeeld lijkt het opdelen van het programma in subprogram- 
ma's wellicht wat vergezocht. Het gaat hier echter om een illustra- 
tie. In het volgende hoofdstuk gaan we echter nader in op deze tech- 
niek -modulair programmeren genoemd- en zal blijken hoe het 
gebruik van deze techniek het programmeren van grotere problemen 
kan vereenvoudigen. Programmacommunicatie door middel van 
COMMON-gebieden komt hierbij veelvuldig voor. 


11.9 SAMENVATTING 


In dit hoofdstuk is het begrip subprogramma ingevoerd. Subpro- 
gramma's bieden de mogelijkheid tot een modulaire aanpak van pro- 
grammeerproblemen. Het gebruik van subprogramma's heeft onder 
meer de volgende voordelen: 


1. Het programmeerwerk kan verdeeld worden over meerdere men- 
sen. 


2. Bij zeer grote toepassingen kan een deel van het systeem reeds 

= operationeel zijn, terwijl aan andere delen nog wordt gewerkt. 

3. De logica van een systeem is gemakkelijker te begrijpen als het 
uit kleinere componenten is opgebouwd. 

4, Bewerkingen die meer dan één keer voorkomen behoeven slechts 
eenmaal te worden geprogrammeerd. 

5. Programmalogica waarvan meerdere malen gebruik wordt 
gemaakt kan gemakkelijk 'uitgefilterd' worden ten behoeve van 
andere programma's, 

6. Het testen van het totale systeem kan stapgewijs plaatsvinden. 


FORTRAN kent twee soorten subprogramma's: subroutines en func- 
ties. Een subroutine kan men beschouwen als een nieuwe FORTRAN- 
statement, een functie als een nieuwe FORTRAN-operatie, In dit 
hoofdstuk kwamen onder meer de volgende begrippen aan de orde. 


subprogrammadefinitie: De FORTRAN-statements die samen 
een subprogramma vormen, Subpro- 
grammadefinities in SK/k komen na de 
END van het hoofdprogramma. 


subroutine: Een subprogramma van de vorm: 


SUBROUTINE naam(parameters) 
declaratie van parameters 
declaratie van lokale variabelen 


RETURN 
END 


Parameters zijn bij subroutines facul- 
tatief; bij het ontbreken daarvan wor- 
den de haakjes weggelaten. Het ontbre- 
ken van parameters kan verband hou- 
den met de toepassing van COMMON- 
gebieden. 


functie-subprogramma: Een subprogramma van de vorm: 


type FUNCTION naam(parameters) 
declaratie van parameters 
declaratie van lokale variabelen 
naam = expressie 

RETURN 

END 


subprogrammanaam: 


aanroep van een 
subprogramma: 


terugkeer uit een 
subprogramma (RETURN): 
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Functies moeten minstens één para- 
meter hebben. Het datatype van de 
functie moet ook in het aanroepende 
programma worden gedeclareerd. 


Hiervoor geldt de algemene FORTRAN- 
regel voor identificatoren: een letter 
gevolgd door maximaal 5 letters en/of 
cijfers, in totaal dus maximaal zes 
tekens. 


Heeft de uitvoering van een subpro- 
gramma tot gevolg. Subroutines worden 
aangeroepen door middel van een 
statement van de vorm: 


CALL subroutinenaam(actuele parame- 
ters) 


Indien de subroutine geen parameters 
heeft, ontbreekt hierbij de lijst met 
actuele parameters en de bijbeho- 
rende haakjes. 


Functies worden aangeroepen door in 
een expressie de naam van de functie 
te coderen, gevolgd door een lijst met 
minstens één actuele parameter. 


In alle gevallen moet het datatype van 
de actuele parameters gelijk zijn aan 
het datatype van de overeenkomstige 
formele parameters. 


Het beëindigen van de executie van een 
subprogramma, waarop de executie 
van het aanroepende programma of 
subprogramma wordt hervat. Bij een 
subroutine wordt de executie hervat 
bij de statement volgend op de desbe- 
treffende CALL. Bij functies wordt de 
berekende functiewaarde als het ware 
ingevuld op de plaats van de aanroep, 
en wordt de programma-executie her- 
vat bij de statement waarin die aan- 
roep plaatsvond. 
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actuele parameters: 


formele parameters: 


lokale variabelen: 


COMMON: 


Waarden -bijvoorbeeld variabelen- 
van een programma die bij aanroep 
worden doorgegeven aan het aangeroe- 
pen subprogramma. In de aanroep 


CALL SORT(NAAM, AANTAL) 


zijn NAAM en AANTAL actuele para- 
meters. Indien een actuele parameter 
een constante is, mag de overeenkom- 
stige formele parameter in het aange- 
roepen subprogramma niet worden 
veranderd. Actuele parameters moe- 
ten wat betreft aantal, dimensie en 
datatype overeenkomen met de formele 
parameters van het aangeroepen sub- 
programma. 


Variabelen van een subprogramma 
waaraan bij aanroep een waarde wordt 
toegekend vanuit het aanroepende pro- 
gramma. Alle formele parameters 
moeten in het desbetreffende subpro- 
gramma worden gedeclareerd. 


Variabelen die slechts betekenis heb- 
ben binnen het programma of subpro- 
gramma waarin ze voorkomen, dat wil 
zeggen variabelen die noch in een for- 
mele parameterlijst noch in een 
COMMON-statement voorkomen. 


Een geheugengebied dat door verschillen- 
de programma's of subprogramma's ge- 
deeld wordt, waardoor deze programma's 
gemeenschappelijke variabelen kunnen 
hebben. Dit gebied komt tot stand door 
een declaratie van de vorm: 


COMMON/naam/lijst van variabelen 
declaratie van variabelen 


in de desbetreffende programma's. In 
SF/k dient voor een gegeven COMMON- 
gebied in de verschillende programma- 
eenheden steeds dezelfde COMMON- 
declaratie te worden gebruikt. 
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11.10 OPGAVEN 


1. Wat wordt afgedrukt ten gevolge van het volgende programma? 


INTEGER ABSW 

INTEGER I 

DU 10 i #1; 40 
PRINT #, ABSW(I-6) 

10 CONTINUE 

STOP 

END 

INTEGER FUNCTION ABSW (WAARDE) 

INTEGER WAARDE 

IF (WAARDE .GE. 0O) THEN 
ABSW = WAARDE 


ABSW = -WAARDE 


2. Wat wordt afgedrukt ten gevolge van het volgende programma? 


REAL TEMP(31): NRSLAG(31) 
INTEGER DAG, TIJD 
READ #, TIJD 
DO 5 DAG = 1, TIJD 
READ #, TEMP(DAG):; NRSLAG(DAG) 
> CONTINUE 
PRINT #, ‘GEMIDDELDE TEMPERATUUR.’ 
CALL MIDDEL(TEMP, TIJD) 
PRINT &#, ‘GEMIDDELDE NEERSLAG: ’ 
CALL MIDDEL(NRSLAG:, TIJD) 
STOP 
END 


SUBROUTINE MIDDEL (ARRAY; AANTAL) 
INTEGER AANTAL 
REAL ARRAY (31) 

INTEGER I 

REAL SOM 

SOM = 0.0 

DO 8 I = 1, AANTAL 
SOM = SOM + ARRAY(I) 


8 CONTINUE 
PRINT #, SOM / AANTAL 
RETURN 
END 

invoer: 

4 

13.0. 00 

00 

18.0 5.0 

tE 12i 
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3. Schrijf een functie zoals de in dit hoofdstuk behandelde functie 
LENGTE om de lengte van het eerste woord op een dataregel te 
bepalen, aannemende dat het woord al dan niet door een reken- 
kundige operator kan worden voorafgegaan. 


4. Schrijf een programma om woorden, die één voor één op data- 
regels voorkomen, te lezen en te combineren tot regels van 
niet meer dan 80 tekens die afgedrukt worden. Tussen de woor- 
den dient een spatie voor te komen, Eventueel kan gebruik wor- 
den gemaakt van de functie LENGTE uit opgave 3. 


Ə. Verwijder het eerste woord van een regel tekst zoals bedoeld in 
opgave 4 en druk de resterende tekst af. 


6. Schrijf een subroutine die een array met namen in alfabetische 
volgorde sorteert. De subroutine dient op een ander sorteer- 
principe te zijn gebaseerd dan de tot nu toe in dit boek behandel- 
de sorteerprincipes, en moet als volgt worden gebruikt: 


CHARACTER#20 WERKNR (50) 
INTEGER I 
DO 5 I = 1, 50 
READ #, WERKNR(I) 
5 CONTINUE 
CALL SORT(WERKNR;, 50) 
DU 10 T t 80 
PRINT #, WERKNR(I) 
10 CONTINUE 
STOP 
END 


SUBROUTINE SORT(NAAM, AANTAL) 
CHARACTER#20 NAAM(50) 


INTEGER AANTAL 
C 
C ### DIT DEEL ZELF SCHRIJVEN ### 
C 
RETURN 


END 


T. Schrijf een subroutine voor het bepalen van de wortels van een 
vierkantsvergelijking van de vorm: - 


at kt emd 


201 


8, Schrijf een subroutine om leestekens uit een tekst van 50 tekens 
te verwijderen. De subroutine mag geen formele parameters 
bevatten, maar moet met het aanroepende programma 'commu- 
niceren' door middel van COMMON-gebieden. 


12 MODULAIR PROGRAMMEREN 


In het voorgaande hoofdstuk is het begrip subprogramma behandeld. 
Een van de belangrijkste toepassingen van subprogramma's is het 
splitsen van een (groot) programma in overzichtelijke en gemakke- 
lijk te begrijpen onderdelen of modules. Men spreekt hierbij van 
modulair programmeren. In dit hoofdstuk gaan we nader op deze 
techniek in. 


12.1 EEN PROBLEEM OP HET GEBIED VAN DE 
ADMINISTRATIEVE GEGEVENSVERWERKING 


We zullen het begrip modulair programmeren illustreren aan de 
hand van een administratief probleem dat zich bij een klein bedrijf 
zou kunnen voordoen. We gaan uit van een bedrijf dat auto-onderde- 
len levert en van een computer gebruik maakt voor het bijhouden 
van een klantenbestand. Voor elke klant is een afzonderlijk record 
aanwezig, waarin de naam van de klant, zijn rekeningnummer, 
kredietlimiet en saldo worden vermeld. 


Stel dat Garage Huppeldepup rekeningnummer 14 heeft en een bedrag 
van f 283. 20 verschuldigd is aan het onderdelenbedrijf. Er geldt 
een kredietlimiet van f 2000. --. Deze gegevens worden als volgt in 
de records van het klantenbestand vastgelegd: 


'GARAGE HUPPELDEPUP' 14 200000 28320 

Merk op dat decimale punten achterwege worden gelaten. 

Betalingen aan het onderdelenbedrijf door haar klanten worden vast- 
gelegd in een zogenaamd transactiebestand. Elk transactierecord 


bevat het rekeningnummer en het betaalbedrag. Het record: 


14 28320 


203 


bijvoorbeeld, geeft aan dat er een bedrag van f 283,20 ontvangen 
is van de klant met rekeningnummer 14. 


De boekhouder van het onderdelenbedrijf heeft een computerpro- 
gramma nodig waarmee beide bestanden worden gelezen, en waar- 
mee een rekeningenoverzicht wordt geproduceerd nadat betaling 
heeft plaatsgevonden. Stel dat onder andere de volgende gegevens 
worden ingelezen: 


'GARAGE HUPPELDEPUP' 14 200000 28320 
GARAGE DINGES! 6 50000 82400 
overige klantrecords 
'XXX' -1 0 0 

6 10000 

14 28320 

6 10000 
overige transactierecords 

-1 0 


Het programma dient dan een rekeningenoverzicht te produceren 
van de volgende vorm: 


FENIKS AUTO-ONDERDELEN B.V. REKENINGENOVERZICHT 


KLANT REKENINGNR. KREDIETLIMIET SALDO 
GARAGE DINGES 6 50000 62400 
GARAGE HUPPELDEPUP 14 200000 0 


Verder geldt: 


- het bedrijf onderhoudt rekeningen voor 16 klanten; 

- voor elke klant wordt één klantrecord bijgehouden; 

_ de records van het transactiebestand staan niet in een bepaalde 
volgorde; 

- het aantal betalingen dat een klant per maand verricht varieert; 
er kunnen helemaal geen betalingen plaatsvinden, maar ook een 
groot aantal; 

- voor rekeningsaldi minder dan of gelijk aan het kredietlimiet 
worden geen aanmaningen verzonden. 
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12.2 SPLITSEN VAN HET PROGRAMMA IN ONDERDELEN 


Gevraagd wordt een programma dat klantrecords inleest, vervol- 
gens de rekeningen bijwerkt (gebruikmakend van het transactie- 
bestand) en daarna een bijgewerkt rekeningenoverzicht afdrukt. Als 
eerste stap in ons programma-ontwerp maken we de volgende drie- 
deling: 

- invoer van rekeninggegevens 

- bijwerken van rekeningen 

— uitvoer van rekeningenoverzicht. 


Voor elk van deze onderdelen schrijven we een aparte subroutine; 
we noemen deze routines respectievelijk INVOER, BYWERK en 
UITV. Alle communicatie tussen de routines vindt plaats door mid- 
del van één COMMON-gebied. Subroutine INVOER, bijvoorbeeld, 
heeft dan de volgende vorm: 


SUBROUTINE INVOER 

definitie van COMMON gebieden 
declaratie van lokale variabelen 
overige statements 

END 


Met drie van dergelijke routines tot onze beschikking kunnen we in 
het hoofdprogramma grotendeels volstaan met drie simpele aanroe- 
pen: 


CALL INVOER 
CALL BYWERK 
CALL UITV 


In de volgende paragraaf zullen we de inrichting van het COMMON- 
gebied bespreken. 


12.3 COMMUNICATIE TUSSEN MODULES 


Subroutine BYWERK moet kunnen beschikken over de door INVOER 
ingelezen gegevens. De door BYWERK gebruikte c.q. aangepaste 
gegevens moeten op hun beurt beschikbaar zijn voor de routine 
UITV. Hiertoe definiëren we twee COMMON-gebieden: een voor de 
namen van de klanten (een CHARACTER-array) en een voor de 
rekeningnummers, kredietlimieten en saldi (INTEGER-arrays). 

De declaraties zijn als volgt: 
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COMMON /NAMEN/ KLANT 
CHARACTER *13 KLANT(20) 


COMMON /REKGEG/ REK, LIMIET, SALDO 
INTEGER REK(20), LIMIET(20), SALDO(20) 


De arrays zijn doelbewust ruimer gedimensioneerd dan strikt nood- 
zakelijk is (maximaal 19 rekeningen plus 1 fictieve rekening voor 
afsluitdoeleinden), waardoor het programma zonder aanpassingen 
kan blijven functioneren indien het aantal rekeningen iets toeneemt. 
Er is uitgegaan van een maximum van 13 tekens om de naam van de 
klanten vast te leggen. Bovenstaande statements worden in het 
hoofdprogramma en in alle subprogramma's opgenomen. 


De globale inrichting van het programma is als volgt: 
INVOEREN, BIJWERKEN en AFDRUKKEN VAN REKENING- 


GEGEVENS TEN BEHOEVE VAN FENIKS AUTO-ONDERDELEN 
B. V. 


aaaa 


definitie van COMMON-gebieden 
CALL INVOER 

CALL BYWERK 

CALL UITV 

STOP 

END 

definitie van subroutine INVOER 
definitie van subroutine BYWERK 
definitie van subroutine UIT V 


Subroutine INVOER eindigt door het lezen van een fictief klant 
record. De routines BYWERK en UITV herkennen het einde van een 
reeks rekeningen door middel van het fictieve rekeningnummer -1. 


De gegevens van de klantrecords worden in de vier arrays opgesla- 
gen door subroutine INVOER. Subroutine BYWERK leest vervolgens 
de transactierecords en werkt aan de hand daarvan de rekeningen 
bij. 

Hierbij wordt alleen de inhoud van de array SALDO aangepast; de 
inhoud van de overige arrays wordt niet veranderd. Tenslotte drukt 
UITV de nieuwe rekeningenoverzichten af. Deze subroutine maakt 
slechts 'passief' gebruik van de vier arrays; de inhoud wordt niet 
veranderd. 
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12.4 HET SCHRIJVEN VAN DE MODULES 


Nu de globale programma- en datastructuur vastligt kunnen we de 
subroutines schrijven. We beperken ons in deze paragraaf tot de 
subroutine INVOER. Het lezen van het klantenbestand in deze sub- 
routine kan plaatsvinden met behulp van een lusconstructie van de 
volgende vorm: 


Initialisatie van de lus 

10 IF (er zijn geen klantrecords meer) GO TO 20 
lees een nieuw record 
GO TO 10 

20 CONTINUE 


We maken gebruik van een lokale INTEGER-variabele VOLGNR om 
het volgnummer van elke serie gegevens die op één klant betrekking 
heeft, bij te houden. Het ingelezen rekeningnummer kennen we toe 
aan een andere lokale INTEGER-variabele REKNR, om in de IF- 
statement te kunnen testen op het loze rekeningnummer -1. De 
bovenstaande lusstructuur kan dan als volgt uitgewerkt worden: 


VOLGNR = 1 
C STEL REKNR ZO IN: DAT LUS OP DE JUISTE MANIER BEGINT 
REKNR = 0 


10 IF (REKNR .EQ. -1) GOTO 20 
READ #, KLANT(VOLGNR), REK(VOLGNR), LIMIET(VOLGNR), 
$ SALDO ( VOLGNR) 
REKNR = REK (VOLGNR) 
VOLGNR = VOLGNR + 1 
GOTO 10 
20 CONTINUE 


Deze serie statements heeft tot gevolg dat alle klantrecords, inclu- 
sief het fictieve record, ingelezen worden. De variabele VOLGNR 
heeft na beëindiging van de lus een waarde die 1 groter is dan het 
aantal rekeningen. 


De volledige subroutine ziet er als volgt uit: 
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C INLEZEN VAN KLANTRECORDS IN ARRAYS KLANT, REK, LIMIET, SALDO 


SUBROUTINE INVOER 
COMMON /NAMEN/ KLANT 
CHARACTER#13 KLANT (20) 
COMMON /REKGEG/ REK, LIMIET, SALDO 
INTEGER REK(20), LIMIET(20), SALDO(ZO) 
INTEGER VOLGNR:, REKNR 


VOLGNR = 1 
C STEL REKNR ZO IN, DAT LUS OP DE JUISTE MANIER BEGINT 
REKNR = O 


10 IF (REKNR .EGQ. =1) GOTO ZO 
READ #, KLANT(YVOLGNR): REK(YVOLGNR): LIMIET(VOLGNR), 
$ SALDO ( VOLGNR ) 
REKNR = REK(VOLGNR) 
VOLGNR = VOLGNR + 1 
GOTO 10 
20 CONTINUE 


RETURN 
END 


Merk op dat de subroutine tot stand is gekomen met behulp van de 
techniek van stapgewijze verfijning: na het vastleggen van de taak 
van de subroutine en de datastructuur werd de programmastruc- 
tuur eerst globaal weergegeven in pseudotaal, en vervolgens uitge- 
werkt tot FORTRAN-statements. Dezelfde techniek kan men gebrui- 
ken bij het schrijven van de BYWERK- en UIT V-subroutines. 

Hierop gaan we niet verder in. 


12.5 HET COMPLETE PROGRAMMA 


C INVOEREN: BIJWERKEN EN AFDRUKKEN VAN REKENINGGEGEVENS 


COMMON /NAMEN/ KLANT 
CHARACTER#13 KLANT (20) 
COMMON /REKGEG/ REK, LIMIET: SALDO 
INTEGER REK(20): LIMIET(20), SALDO(20) 
CALL INVOER 
CALL BYWERK 
CALL UITV 
STOP 
END 
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C INLEZEN VAN KLANTRECORDS IN ARRAYS KLANT: REK, LIMIET EN SALDO 


SUBROUTINE INVOER 


RETURN 
END 


C ___INLEZEN VAN TRANSACTIERECORDS EN BIJWERKEN VAN REKENINGEN 


SUBROUTINE BYWERK 
COMMON /NAMEN/ KLANT 
CHARACTER#13 KLANT (20) 
COMMON /REKGEG/ REK, LIMIET, SALDO 
INTEGER REK(20), LIMIET(20), SALDO(20) 
INTEGER VOLGNR, REKNR, BETAAL 


REKNR = O0 


10 IF (REKNR .EQ. -1) GOTO 20 
VOLGNR = 1 
11 IF (REK(VOLGNR) .EQ. REKNR .OR. REK(VOLGNR) .EQ. -1) GOTO 15 
VOLGNR = VOLGNR + 1 
GOTO 11 
15 CONTINUE 
IF (REK(VOLGNR) .EG. REKNR) THEN 
SALDO(VOLGNR) = SALDO(VOLGNR) — BETAAL 
ELSE . 
PRINT #, ‘ONJUISTE TRANSACTIE: ’, REKNR 
ENDIF 
READ #, REKNR, BETAAL 
GOTO 10 
20 CONTINUE 


RETURN 
END 


C DRUK REKENINGOVERZICHTEN AF 


SUBROUTINE UITV 
COMMON /NAMEN/ KLANT 
CHARACTER#13 KLANT(20) 
COMMON /REKGEG/ REK, LIMIET: SALDO 


INTEGER REK(20), LIMIET(20), SALDO(20) 
INTEGER VOLGNR 
PRINT #, ‘FENIKS AUTO-ONDERDELEN BV --- REKENINGOVERZICHT ’ 
PRINT #&, ‘KLANT REKENINGNR. KREDIETLIMIET SALDO’ 
VOLGNR = 1 


30 IF (REK(VOLGNR) .EQ. -1) GOTO 40 
PRINT #, KLANT(VOLGNR),; REK (VOLGNR), LIMIET (VOLGNR) , 


$ SALDO ( VOLGNR ) 
VOLGNR = VOLGNR + 1 
GOTO 30 
40 CONTINUE 
RETURN 


END 
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Merk op dat alle arrays in dit programma globaal zijn, Ze zijn dus 
toegankelijk voor alle deelprogramma's en stellen in elk deelpro- 
gramma dezelfde geheugenlokaties voor. Sommige identificatoren, 
met name VOLGNR en REKNR, komen in meerdere deelprogramma's 
voor maar stellen lokale variabelen voor. De variabele VOLGNR in 
subroutine INVOER, bijvoorbeeld, stelt dus een andere geheugenloka- 
tie voor dan de variabele VOLGNR in subroutine BYWERK, 


12.6 HET GEBRUIK VAN DE MODULES 


In ons voorbeeld is het totale programma onderverdeeld in drie 
modules: INVOER, BYWERK en UITV. Ze worden vanuit een hoofd- 
programma aangeroepen. Het voordeel van deze onderverdeling is 
een zeer doorzichtige structuur van het hoofdprogramma. Het 
hoofdprogramma, dat in wezen slechts uit drie subroutine-aanroepen 
bestaat: 


CALL INVOER 
CALL BYWERK 
CALL UITV 


specificeert de volgorde waarin de modules worden gebruikt, zonder 
bijzonderheden omtrent de interne structuur van de modules te geven. 
De modules zijn hierbij zelfstandige componenten met een relatief 
beperkte doelstelling. Ze kunnen eventueel aangepast worden zonder 
het hoofdprogramma te veranderen, of de structuur van het geheel 

te verstoren. 


Ondanks de betrekkelijk kleine omvang van ons probleem kon deze 
modulaire structuur zinvol worden toegepast. Bij grotere problemen 
is deze techniek in het algemeen onmisbaar om programma's begrij- 
pelijk te houden en gemakkelijk te modificeren. Daarbij kunnen 
modules op hun beurt worden onderverdeeld in sub-modules, sub- 
modules in sub-sub-modules, enzovoort. 


12.7 HET MODIFICEREN VAN EEN PROGRAMMA 


Het is niet ongebruikelijk dat programma's in de loop van hun bestaan 
veranderingen ondergaan. Soms zijn die veranderingen nodig om 
fouten die tijdens het gebruik van het programma aan het licht komen 
te verhelpen. Soms zijn ze nodig omdat de doelstellingen van het 
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programma gewijzigd zijn. De boekhouder van het eerder genoemde 
onderdelenbedrijf kan bijvoorbeeld tot de conclusie komen dat hij, 
naast het globale rekeningenoverzicht, ook een lijst nodig heeft van 
klanten die hun kredietgrens overschreden hebben. Dit is een voor- 
beeld van rapportering volgens het uitzonderingsbeginsel of uitzonde- 
ringsrapportage (Engels: exception reporting), een hulpmiddel om 
slechts die gevallen te signaleren waarvoor aktie moet worden onder- 
nomen. Bij het modificeren van bruikbare programma's spreken we 
van programma-onderhoud. Het zal duidelijk zijn dat programma- 
onderhoud niets heeft uit te staan met slijtageprocessen! 


Als voorbeeld van programma-onderhoud nemen we het geval dat de 
boekhouder van het onderdelenbedrijf een krediet-uitzonderingsrap- 
port verlangt: het programma moet een lijst produceren van alle 
klanten die hun kredietgrens overschreden hebben. We beschikken 
reeds over modules die rekeningen lezen, bijwerken en afdrukken. 
Uitgaande van de bijgewerkte rekeningen hebben we nu slechts één 
module -bijvoorbeeld met de naam KRED- nodig om de namen af te 
drukken van die klanten die hun kredietgrens overschreden hebben. 
Het hoofdprogramma kan dan eenvoudig worden uitgebreid met een 
vierde aanroep: 


CALL INVOER 
CALL BYWERK 
CALL UITV 
CALL KRED 


Zonder spectaculaire ingrepen zou het programma bijvoorbeeld ook zo 
gemodificeerd kunnen worden dat een rekeningenoverzicht zowel vóór 
als ná het bijwerken wordt geproduceerd. In dit geval is slechts een 
extra aanroep van UITV nodig: 


CALL INVOER 
CALL UITV 
CALL BYWERK 
CALL UITV 


Het toevoegen of veranderen van modules kan hierbij achterwege 
blijven. 


Uit het bovenstaande blijkt dat modulair programmeren ook de 
‘onderhoudbaarheid' van programma's ten goede komt. 


12.8 SAMENVATTING 


In dit hoofdstuk hebben we laten zien hoe modulair programmeren 
toegepast kan worden om een eenvoudig administratief probleem op 
te lossen. 


Het programma werd ontworpen met behulp van stapgewijze verfij- 
ning. Na het formuleren van de probleemdefinitie werd het probleem 
verdeeld in drie stappen: 


- invoer van rekeninggegevens 
- bijwerken van rekeningen 
- uitvoer van het rekeningoverzicht. 


We schreven drie modules om deze stappen uit te voeren. Elk van 
deze modules bestond uit een subroutine, 


Modules dient men zo te ontwerpen, dat ze duidelijk afgebakende 
bewerkingen uitvoeren, en op een doorzichtige manier gebruik maken 
van eventuele parameters en/of globale variabelen. Programma's die 
op zorgvuldige wijze uit modules zijn opgebouwd kunnen gemakkelijk 
begrepen en onderhouden worden. 


12.9 OPGAVEN 


Onderstaande opgaven zijn gebaseerd op het in dit hoofdstuk behandel- 
de programma voor het inlezen, bijwerken en afdrukken van reke- 
ninggegevens. Elke opgave behelst het aanbrengen van één of meer 
modificaties in het programma. Hierbij kan het nodig zijn nieuwe 
modules toe te voegen, bestaande modules te veranderen of te verbe- 
teren, of veranderingen aan te brengen in het hoofdprogramma. 
Vergeet hierbij niet de commentaarregels aan te passen, of zonodig 
nieuw commentaar op te nemen. 


1. Voeg een nieuwe subroutine toe met de naam KRDIET die de gege- 

vens afdrukt van rekeningen waarvan het saldo de kredietgrens 
overschrijdt. 
Schrijf het hoofdprogramma zodanig dat eerst de rekeninggegevens 
ingelezen en bijgewerkt worden, vervolgens de kredietoverschrij- 
dingen afgedrukt worden en tenslotte een volledig rekeningenover- 
zicht geproduceerd wordt. Test het gemodificeerde programma. 
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2. Modificeer het programma zodanig dat het aantal rekeningen en 
het aantal transacties vóór het rekeningoverzicht afgedrukt wor- 
den. Test het gemodificeerde programma. 


3. Maak het programma minder kwetsbaar voor invoerfouten door 
controle op en melding van de volgende onregelmatigheden: 
a. er zijn meer rekeningen dan in de arrays kunnen worden opge- 
slagen 
b. negatieve kredietgrenzen 
c. kennelijk onjuiste betalingen (negatief of meer dan f 999. 99). 
Test het gemodificeerde programma. 


4, Modificeer het programma zodanig dat het totaal saldo van alle 
rekeningen wordt afgedrukt. Test het gemodificeerde programma. 


13 ZOEKEN EN SORTEREN 


Wanneer grote hoeveelheden gegevens in computers worden opgesla- 
gen, dient die opslag uiteraard zo te worden georganiseerd, dat die 
gegevens zonder problemen teruggevonden kunnen worden. 

Het probleem van het terugzoeken van gegevens is actueel bij alle 
(grotere) administratieve toepassingen. Gegevensstaten of records 
worden bijgehouden van onder andere werknemers, klanten, leve- 
ranciers, inventaris, en in verwerking zijnde goederen. Deze 
records worden meestal gegroepeerd in een bestand (Engels: file). 
Zo zou men bijvoorbeeld kunnen beschikken over een bestand van 
werknemerrecords, een bestand van klantenrecords, een inventaris- 
bestand, enzovoort. Uiteraard moet een bestand steeds actueel zijn. 
Daartoe moet men het bestand kunnen bijwerken (Engels: to update). 


Een alledaags voorbeeld van een bestand is een telefoonboek. Het 
bestaat uit een serie records van namen, adressen en telefoonnum- 
mers, Men zegt dat het record uit een aantal velden bestaat: het 
naamveld, het adresveld en het telefoonnummerveld. Het bestand is 
(normaal gesproken) geordend in alfabetische volgorde van één van de 
drie velden: het naamveld. Het naamveld noemt men daarom de 
sleutel (Engels: key) voor de ordening van het bestand. Dit veld is als 
sleutel gekozen omdat we aan de hand daarvan een telefoonnummer op 
de meest effectieve wijze kunnen vinden. Bij telefooncentrales 
beschikt men over dezelfde verzameling records, maar dan geordend 
met het telefoonnummerveld als sleutel. 


In dit hoofdstuk zullen we zien hoe een computer gegevens in een 
bestand kan opzoeken, en hoe records kunnen worden gesorteerd. 


13.1 DE LINEAIRE ZOEKMETHODE 


Een methode om gegevens in een bestand terug te vinden is het 
bestand vanaf het eerste record te doorlopen, totdat men het gewens- 
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te record vindt, Voor betrekkelijk kleine bestanden -tot ongeveer 12 
records- is dit nog een bruikbare methode; voor grotere bestanden 
zijn er meer efficiënte methoden. We beperken ons echter voorlopig 
tot de lineaire zoekmethode, ook wel sequentiële Zoekmethode 
genoemd, Aan de hand hiervan kunnen we kennismaken met geautoma- 
tiseerde zoekprocessen. Bovendien verschaft het een vergelijkings- 
basis waarop andere methoden kunnen worden beoordeeld. 


We gaan uit van een bestand van namen en telefoonnummers, die noch 
op naam, noch op nummer geordend zijn. Het bestand wordt onder- 
gebracht in twee ééndimensionale arrays, die we NAAM en TELEF 
noemen. TELEF(I) correspondeert daarbij met NAAM(I). We lezen 
achtereenvolgens het bestand in, en een lijst met de namen van rela- 
ties waarvan het programma het bijbehorende telefoonnummer moet 
bepalen. Het inlezen geschiedt met behulp van FORMAT -bestuurde 
READ-statements, zodat de gegevens zonder apostroffen kunnen 
worden ingevoerd. 


C DIT PROGRAMMA ZOEKT TELEFOONNUMMERS 


CHARACTER#20 NAAM(25), RELAT 
CHARACTER#11 TELEF (25) 


INTEGER IT, AANTAL 
C LEES BESTAND MET NAMEN EN TELEFOONNUMMERS 
Eat 


READ 10, NAAM(I), TELEF(I) 
10 FORMAT (A20, Ali) 
15 IF (NAAM(I) .EG. ’ZZZ’) GOTO 25 
Kemp ES a | 
READ 20, NAAM(I), TELEF(I) 
20 FORMAT (A20, Ati) 
GOTO 15 
25 CONTINUE 
AANTAL = I = 1 
READ 30, RELAT 
30 FORMAT (A20) 


35 IF (RELAT .EQ. ‘222’) GOTO 65 


C ZOEK TELEFOONNUMMER VAN RELATIE 
Ee i 
37 IF (RELAT .EG. NAAM(I) .OR. I .GT. AANTAL) GOTO 38 
A A EN 


GOTO 37 
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38 CONTINUE 
IF (RELAT .EG. NAAM(I)) THEN 
PRINT 40, RELAT, TELEF(I) 


40 FORMAT (’ ‘, A20, A11) 

ELSE 

PRINT 50, RELAT, ‘KOMT NIET IN LIJST VOOR 

50 FORMAT (’ ’, A20, A23) 

ENDIF 

READ 60, RELAT 
60 FORMAT (A20) 

GOTO 35 


65 CONTINUE 


STOP 

END 
invoer: 
PERRAULT: R. 04830-4865 
BORODIN: A. 07820-8928 
COOK, S.A. 07630-3900 
ENRIGHT: W.H. 02660-1234 
zzz 00000-0000 


BORODIN: A. 
BERNSTEIN, P. 
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De uitvoer is: 


BORODIN, A. 07820-8928 
BERNSTEIN: P. KOMT NIET IN LIJST VOOR 


In verband met het koppelteken is voor de opslag van het telefoon- 
nummer het datatype CHARACTER gekozen. 
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13.2 ZOEKTIJD 


In de vorige paragraaf hebben we een programma ontwikkeld voor 
een lineaire zoekmethode. Deze methode bestond uit het vergelijken 
van de naam van een relatie -RELAT- met de namen opgeslagen in 
de array NAAM —-NAAM(I), NAAM(2), NAAM(3), enzovoort- totdat 
de gewenste naam werd gevonden, of het einde van de array werd 
bereikt. Voor kleine bestanden kan zo'n lineair proces voldoende 
snel zijn, maar voor grotere bestanden kan de benodigde zoektijd 
onaanvaardbaar lang zijn. 


Gesteld dat het bestand N records telt, en dat de gezochte naam 
inderdaad in het bestand voorkomt, dan zullen er gemiddeld N/2 
vergelijkingen nodig zijn om die naam te vinden. Het grootste 
aantal vergelijkingen zou N zijn (als de gezochte naam helemaal aan 
het einde van het bestand voorkomt), en het kleinste aantal vergelij- 
kingen 1 (als de gezochte naam in de eerste record van het bestand 
voorkomt): gemiddeld dus N/2, 


Een bestand van 1000 namen zou gemiddeld 500 vergelijkingen vergen 
-een aanzienlijk aantal, Om de zoektijd in zo'n geval te reduceren 
kunnen we het bestand in alfabetische volgorde sorteren, en dan 
gebruik maken van een zogenaamde halveringszoekmethode, ook wel 
binaire zoekmethode genoemd (Engels: binary search). In de volgen- 
de paragraaf gaan we nader op deze techniek in, Het sorteren laten 
we daarbij voorlopig buiten beschouwing. 


13.3 DE HAL VERINGSZOEKMETHODE 


Telefoonboeken zijn alfabetisch op abonneenaam geordend. De tech- 
niek die we in het dagelijks leven meestal gebruiken om een telefoon- 
nummer op te zoeken, heeft veel weg van de techniek waarop de hal- 
veringszoekmethode is gebaseerd. We beginnen met het openslaan 
van het boek op ongeveer de plaats waar we denken dat de gezochte 
naam staat, Vervolgens bekijken we de desbetreffende pagina, en 
vergelijken we een willekeurige naam daarop met de gezochte naam. 
Als die naam alfabetisch gezien na de gezochte naam komt -dat wil 
zeggen alfabetisch 'groter' is- weten we dat er slechts tussen de 
opengeslagen pagina en het begin van het boek verder gezocht moet 
worden. 

Het tweede gedeelte van het boek valt nu buiten het zoekproces. Dit 
proces wordt steeds herhaald totdat de gewenste pagina en naam 
gevonden zijn. 
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In tegenstelling hiermee, beginnen we bij de halveringszoekmethode 
niet op de plaats waar we de gezochte naam denken te kunnen vinden, 
maar in het midden van het bestand. Vervolgens wordt bepaald in 
welke helft de naam onmogelijk kan liggen, en wordt de andere helft 
„ook weer precies in het midden- onderzocht, Zonodig gaat dit pro- 
ces zo lang door totdat er slechts één naam overblijft; is dit niet de 
gezochte naam, dan komt die naam niet in het bestand voor. 


Bij dit proces wordt het aantal te onderzoeken namen bij elke verge- 
lijking met de helft verminderd, Voor een bestand van 16 namen 
zouden maximaal vier vergelijkingen nodig zijn: één vergelijking om 
de lijst te halveren tot 8, één om de gehalveerde lijst opnieuw te hal- 
veren tot 4, één om te halveren tot 2 en tenslotte één vergelijking om 
te halveren tot 1. 

Uiteraard zou het gezochte gegeven eerder gevonden kunnen worden, 
maar er zijn hoogstens 4 vergelijkingen nodig. Bij een lineair zoek- 
proces zouden er 16 vergelijkingen nodig kunnen zijn, hoewel 8 het 
gemiddelde is. 


In het algemeen kan men stellen dat het aantal vergelijkingen een 
macht van 2 is, Voor een bestand van 1024 records, bijvoorbeeld, 
zijn maximaal 10 vergelijkingen nodig. Dit kan men berekenen door 
het aantal malen te bepalen dat men door 2 moet delen om één record 
over te houden, Anders gezegd: 1024 is gelijk aan: 


Akko 2 


dus 2 tot de macht 10. Met slechts één vergelijking meer, in totaal 
dus elf, zou het zoeken in een bestand van 2048 mogelijk zijn. Een 
bestand van 4096 zou onderzocht kunnen worden met maximaal 12 
vergelijkingen, enzovoort. Het zal duidelijk zijn dat de halverings- 
zoekmethode voor grotere bestanden aanzienlijk efficiënter is dan de 
lineaire methode. 


13.4 EEN SUBROUTINE VOOR EEN HALVERINGSZOEKPROCES 


-We schrijven nu een subroutine voor het uitvoeren van een halve- 
ringszoekproces. De aanroep van de subroutine heeft de vorm: 


CALL ZOEK(BEST, SLEUT, N, PLAATS) 


Hierin is BEST een CHARACTER-array van N elementen, waarin 
het te onderzoeken bestand is ondergebracht. SLEUT is de sleutel 
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waarop gezocht wordt, en PLAATS geeft het element van BEST aan 
dat met de sleutel overeenkomt, dat wil zeggen BEST(PLAATS) = 
SLEUT, Komt SLEUT niet in het bestand voor, dan krijgt PLAATS 
de waarde N + 1, 


Het algoritme voor het zoekproces ontwikkelen we in twee stappen 
met behulp van de techniek van stapgewijze verfijning. In pseudotaal 
is de eerste stap als volgt: 


10 IF (er is nog maar één element in bestand over) GO TO 20 
bepaal midden van bestand 
IF (middelste element komt overeen met, of komt na, 
SLEUT) THEN 
laat laatste helft van resterend bestanddeel buiten 


beschouwing 
ELSE | 
laat eerste helft van resterend bestanddeel buiten 
beschouwing | 
END IF 
GO TO 10 


20 CONTINUE 
IF (resterend element komt overeen met SLEUT) THEN 
geef PLAATS de desbetreffende plaatswaarde 
ELSE | 
geef PLAATS de waarde N +1 
END IF 


Om de verschillende punten in het bestand aan te geven gebruiken we 
drie INTEGER-variabelen: 


- START definieert het eerste element van een te onderzoeken 
bestanddeel 

- EIND definieert het laatst element 

- MIDDEN definieert het middenpunt. 


In de beginsituatie krijgt START de waarde 1 en EIND de waarde N. 
De waarde van MIDDEN wordt dan: 


MIDDEN = (START + EIND) / 2 


Dit is een zuivere INTEGER-deling, met het gevolg dat voor een 
even aantal bestandelementen afkapping plaatsvindt, Althans in de 
beginsituatie, Aangezien men bij een even aantal elementen niet kan 
spreken van een element dat precies in het midden ligt, is dit geen 
probleem. Het uitwerken van de opdracht "laat laatste helft van res- 
terend bestanddeel buiten beschouwing" wordt nu: 


EIND = MIDDEN 


en de opdracht 'laat eerste helft van resterend bestanddeel buiten 
beschouwing" wordt: 


START = MIDDEN + 1 


Nu kan de subroutine geschreven worden: 
C ZOEKEN M.B.V. HALVERINGSPROCES 


SUBROUTINE ZOEK(BEST, SLEUT, N, PLAATS) 
CHARACTER#Z0O BEST(N),; SLEUT 
INTEGER N: PLAATS 

INTEGER START: EIND, MIDDEN 


C INITIALISATIE VAN DE ZOEKLUS 


START = 1 
EIND =N 


10 IF (START .EQ. EIND) GOTO 20 
MIDDEN = (START + EIND) / 2 
IF (BEST(MIDDEN) .GE. SLEUT) THEN 


C ###LAAT LAATSTE DEEL BUITEN BESCHOUWING 
EIND = MIDDEN 
ELSE 
C ###LAAT EERSTE DEEL BUITEN BESCHOUWING 
START = MIDDEN + 1 
ENDIF 
GOTO 10 
20 CONTINUE, 
IF (BEST(START) .EQ. SLEUT) THEN 
PLAATS = START 
ELSE 
PLAATS = N + 1 
ENDIF 


RETURN 
END 


Deze routine zouden we bijvoorbeeld kunnen gebruiken in het eerder 
gegeven programma om het telefoonnummer van een relatie te bepa- 
len (paragraaf 13.1). De vijf statements na de commentaarstate- 
ment: 


C ZOEK TELEFOONNUMMER VAN RELATIE 
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kunnen we nu vervangen door de aanroep: 
CALI ZOEK(NAAM, RELAT, AANTAL, I) 


Hierbij nemen we aan dat het bestand alfabetisch geordend is. De 
subroutine ZOEK zou in het kaartenpakket onmiddellijk na het hoofd- 
programma ingevoegd moeten worden. 


Merk op, dat het programma gebaseerd op de halveringszoekmethode 
meer opdrachten heeft dan het eerste programma. Het 'halverings- 
programma! is ingewikkelder, maar voor grote bestanden toch snel- 
ler omdat minder vergelijkingen nodig zijn. 


13.5 ZOEKEN MET BEHULP VAN ADRESBEREKENING 


We hebben gezien dat de doelmatigheid van een zoekproces aanzien- 
lijk verbeterd kan worden door het bestand te sorteren. De volgende 
stap bij het verhogen van de doelmatigheid is de gegevens zo te 
structureren dat elk gegeven 'zijn eigen plaats heeft en op zijn 
plaats is', 


Stel men heeft een bestand van N records, genummerd van 1 t/m N 
en ondergebracht in een Ééndimensionale array. Als het nummer 
van het record bekend is, zou ook zijn plaats in het bestand onmid- 
dellijk bekend zijn. Het nummer zou dan overeenkomen met de 
index van de array. Wanneer niet het nummer, maar een ander 
stuk informatie van een record bekend is, bijvoorbeeld een per- 
soonsnaam, wordt het moeilijker de plaats van een record te bepa- 
len. 


Bestanden worden soms ingericht op basis van een volgnummer of 
adres, dat bepaald wordt aan de hand van een of ander gegeven in de 
record zelf, Men zou bijvoorbeeld kunnen uitgaan van een persoons- 
naam, en dit gegeven op een bepaalde manier transformeren tot een 
adres. Men maakt bij het transformeren gebruik van adresbereke- 
ningstechnieken die een zogenaamde hash-code opleveren. Door 
deze code wordt de plaats van een record in het bestand definitief 
vastgelegd. 


Bij het gebruik van adresberekeningstechnieken kunnen verschillen- 
de records dezelfde hash-code krijgen. De code geeft dan niet het 
exacte adres van het gezochte record aan, maar het adres van een 
lokatie die een aantal verschillende records kan bevatten. Zo'n 
lokatie noemen we een bin. De inhoud van een aangegeven bin moet 


221 


dan nader worden onderzocht om de juiste record te kunnen bepalen. 
Aangezien het aantal records in zo'n bin beperkt is, behoeven ze 
niet geordend te zijn, en kan men daarin volstaan met een lineair 
zoekproces. 


Als men gebruik maakt van een vaste bingrootte, is het van belang 
dat het hash-code-algoritme het oorspronkelijke bestand zo verdeelt 
dat elke bin ongeveer hetzelfde aantal records bevat. 


Als voorbeeld van een hash-code-algoritme nemen we een bestand 
van 10000 records, die verdeeld moeten worden over 1000 bins. 
Stel dat elk record van het bestand reeds een numerieke identificatie 
bevat, bijvoorbeeld een polisnummer of een inschrijvingsnummer 
van een student. Deze nummers zouden kunnen variëren van 1 tot 
1000000, Een manier om de records in bins onder te brengen zou 
zijn het kiezen van de laatste 3 cijfers van het identificatienummer 
als hash-code. Een andere mogelijkheid zou zijn het derde, vijfde 
en zevende cijfer als hash-code te kiezen. Om het aantal records 
per bin zoveel mogelijk gelijk te maken, kunnen ook meer ingewik- 
kelde hash-code-algoritmen nodig zijn. 


13.6 SORTEREN DOOR SAMENVOEGING 


Als voorbeeld van de methode van stapgewijze verfijning hebben we 
in hoofdstuk 9 een sorteerprogramma ontwikkeld. De daar gebruikte 
techniek noemt men een 'bubble sort'. Steeds worden twee naast 
elkaar gelegen elementen vergeleken en eventueel verwisseld, zodat 
de inhoud van het element met de hoogste sleutel terechtkomt in een 
arrayelement met een hogere index, Op deze wijze komt de hoogste 
waarde na elke doorgang in het 'laatste' arrayelement terecht. 
Onder 'laatst' verstaan we: bij de eerste doorgang door de array het 
laatste arrayelement, bij de tweede doorgang het voorlaatste ele- 
ment, enzovoort. De hoogste waarden 'borrelen' dus als gasbellen 
in een vloeistof naar de hoogste arrayposities; men zou de term 
‘bubble sort! dan ook gevoeglijk kunnen vertalen als 'borrel sorteer- 
methode', ware het niet dat deze uitdrukking minder relevante beel- 
den zou kunnen oproepen. 


We hebben ook aangetoond dat voor grotere bestanden de halverings- 
zoektechniek efficiënter is dan de lineaire techniek. Zo is de 
‘bubble! sorteermethode een redelijke methode voor het sorteren 
van kleinere bestanden, Voor grotere bestanden is deze methode 
echter minder efficiënt. Bij grotere bestanden verdeelt men het 
geheel meestal in een aantal kleinere bestanden. Deze worden apart 
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gesorteerd met behulp van technieken zoals de ‘bubble sort' en ver- 
volgens samengevoegd in één groot bestand. Men spreekt hierbij 


van sorteren door samenvoeging (Engels: sorting by merging). 


In de volgende paragraaf behandelen we een voorbeeld waarin twee 
gesorteerde bestanden tot één groot, gesorteerd bestand worden 
samengevoegd. 


13.7 EEN VOORBEELD 


We schrijven een subroutine met de naam VOEG om een bestand 
BEST1 van N1 records en een bestand BEST2 van N2 records samen 
te voegen tot één groot bestand BEST3. Zowel BEST1 als BEST2 
zijn reeds geordend, De subroutine wordt aangeroepen met de state- 
ment: 


CALL VOEG(BEST1,N1, BEST2, N2, BEST3) 


Subroutine VOEG ziet er als volgt uit: 


C SAMENVOEGEN VAN TWEE GESORTEERDE BESTANDEN 


SUBROUTINE VOEG(BEST1, Ni, BEST2, N2, BEST3) 
CHARACTER#20 BEST1(25), BEST2(25), BEST3(25) 


INTEGER Ni: N2 
INTEGER Ii, I2:, I3 
it AA 
18 3 
I3 = 1 
C SAMENVOEGEN TOT ALLES VAN EEN BESTAND VERWERKT IS 


10 IF (I1 .GT. Ni „OR. IZ .GT. NZ) GOTO 20 
IF (BEST1(I1) .LT. BESTZ2(I2)) THEN 
BEST3 (I3) = BEST1I(I1) 
N DD Me 
ELSE 
BEST3(I3) = BEST2(12) 
les IZo 1 
ENDIF 
I3 = I3 + 1 
GOTO 10 
20 CONTINUE 
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C VOEG RESTERENDE ELEMENTEN TOE AAN EINDE VAN BESTAND 


30 IF (I1 .GT. N1) GOTO 40 
BEST3(I3) =- BEST1(I1) 
Et Ed 
ae E 19- * 1 
GOTO 30 

40 CONTINUE 


50 IF (I2 .GT. N2) GOTO GO 
BEST3(I3) = BEST2(12) 
Ta. Ra #1 
I3 = 13 + 1 
GOTO 50 

60 CONTINUE 


RETURN 
END 


13.8 DOELMATIGHEID VAN SORTEERMETHODEN 


Het aantal vergelijkingen dat nodig is om de twee vooraf gesorteerde 
bestanden van ons voorbeeld samen te voegen is N1 + N2. Om een 
bestand met lengte N met behulp van een ‘bubble sort' te sorteren 
hebben we: 


(N-1) + (N-2) + (N-3) +... +1 
vergelijkingen nodig. Uitwerking van deze reeks levert: 

N(N-1) / 2 
of: 

2 

N°/2 - N/2 
Als N groot is, is de term N/2 verwaarloosbaar klein. De execu- 
tietijd van het algoritme is dan evenredig met N°“, Het sorteren van 


100 elementen duurt dus 100 keer zo lang als het sorteren van 10 
elementen. 


We maken vervolgens enkele berekeningen om te laten zien waarom 
sorteren van grotere bestanden door samenvoegen voordelen biedt. 
Bij het sorteren van een bestand van N elementen, door eerst een 
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‘bubble sort' op twee bestanden van lengte N/2 uit te voeren, zijn 
voor de 'bubble sort': | 


N°/4 - N/2 


vergelijkingen nodig, en voor het samenvoegen N vergelijkingen, in 
totaal dus: 


N2/4 + N/2 


vergelijkingen. Voor het sorteren van het gehele bestand met 
behulp van de 'bubble sort' zijn: 


N°/2 - N/2 


vergelijkingen nodig. Voor N = 100 vergt de gecombineerde 'bubble- 
samenvoeg' methode 2550 vergelijkingen, tegen 4950 vergelijkingen 
bij een rechtstreekse 'bubble'. 


13.9 SAMENVATTING 


In dit hoofdstuk zijn methoden gepresenteerd die in computerpro- 
gramma's worden gebruikt voor het zoeken en sorteren van gege- 
vens. De gegevens zijn ondergebracht in records die samen een 
bestand vormen. Elk record bestaat uit één of meer velden. 


Een zoekaktie is gebaseerd op een sleutel, zoals een persoonsnaam, 
die in één van de velden van de records, waaruit het bestand is 
samengesteld, voorkomt. Bij de lineaire zoekmethode wordt de 
plaats van het gezochte record bepaald door vanaf het begin van het 
bestand de records één voor één te onderzoeken, totdat de gezochte 
sleutel gevonden wordt. Een lineaire zoekmethode is langzaam en 
kan bij grotere bestanden beter vermeden worden. In plaats daar- 
van kan men gebruik maken van snellere sorteermethoden, zoals 
bijvoorbeeld de halveringszoekmethode. 


‚Voorwaarde voor het kunnen uitvoeren van een halveringszoekme- 
thode is dat het bestand geordend is naar het sleutelveld van de 
records. 

Een ongeordend bestand kan geordend worden met behulp van de in 
dit hoofdstuk behandelde sorteermethoden. Bij de halveringszoek- 
methode wordt het middelste record onderzocht om te bepalen in 
welke helft van het bestand het gezochte record zich bevindt. Ver- 
volgens wordt in dat gedeelte het middelste record onderzocht om 


225 


te bepalen welk kwartdeel van het bestand het gezochte record moet 
bevatten. Dit proces wordt net zo lang herhaald totdat het gezochte 
record gevonden is. Als de sleutel uit een getal bestaat dat identiek 
is aan de index van het gezochte record, is verder zoeken overbodig. 
De sleutel geeft dan de plaats van het record aan. 

Soms wordt de sleutel omgevormd tot een hash-code die een kleine 
verzameling records aangeeft, waarin het gezochte record zich 
bevindt. De plaats waar deze records zich bevinden noemt men een 
bin. 


Een bestand van records kan worden geordend met behulp van een 
‘bubble sort'. Bij deze methode wordt het bestand herhaaldelijk 
doorlopen, waarbij naast elkaar gelegen records, die onderling 
onjuist zijn geordend, steeds verwisseld worden totdat alle records 
geordend zijn. De 'bubble sort' is langzaam en daarom ongeschikt 
voor grotere bestanden; in plaats daarvan kan men beter een snelle- 
re sorteermethode, zoals sorteren door samenvoeging gebruiken. 


De techniek van het sorteren door samenvoeging berust op het ver- 
delen van het bestand in twee deelbestanden, die afzonderlijk worden 
gesorteerd, bijvoorbeeld met behulp van een 'bubble sort', 
Vervolgens wordt een geordend bestand samengesteld door de beide 
deelbestanden vanaf hun eerste record te doorlopen, en daaruit 
steeds het record met de kleinste (of alfabetisch 'eerste') sleutel te 
selecteren. 

Grote deelbestanden kunnen beter met behulp van een snelle methode 
-bijvoorbeeld (opnieuw) sorteren door samenvoeging- gesorteerd 
worden, in plaats van door een ‘bubble sort'. 


13.10 OPGAVEN 


1. De namen van de leerlingen van een schoolklas zijn in alfabetische 
volgorde in een computerbestand vastgelegd. 
Een ander (kleiner) bestand bevat de namen van leerlingen die 
zojuist in dezelfde klas zijn ingeschreven; ook dit bestand is alfa- 
betisch geordend. 
Schrijf een programma dat beide bestanden inleest, en alle 
namen in alfabetische volgorde afdrukt. Het programma dient 
het kleinere bestand eerst te lezen, en de namen op te slaan in 
een array. Daarna moet de alfabetische lijst worden afgedrukt, 
tegelijkertijd met het inlezen van het grotere bestand. 
Leg uit waarom het kleinere bestand beter eerst kan worden inge- 
lezen. Welk voordeel heeft het afdrukken van de lijst terwijl het 
tweede bestand wordt ingelezen, in plaats van te wachten totdat 
beide bestanden zijn ingelezen”? 
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2. Maak opgave 1, aannemende dat het grotere bestand wel, maar 
het kleinere niet alfabetisch geordend is. 


3. Een bureau 'Gevonden Voorwerpen! heeft een programma nodig 
om de administratie van gevonden en verloren voorwerpen bij te 
houden. Het programma dient eerst bestandrecords in te lezen 
waarin gevonden voorwerpen, vinders en telefoonnummers zijn 
vastgelegd. Het record: 


‘PORTEFEUILLE! 'MEJ. MABEL DAVIS' '01740 - 3261! 


bijvoorbeeld, geeft aan dat ene mej. Mabel Davis, telefonisch 
bereikbaar onder nummer 01740-3261, een portefeuille gevonden 
heeft. Deze records dienen eerst ingelezen en alfabetisch op 
voorwerpveld gesorteerd te worden. Vervolgens moet een gelijk- 
soortig bestand, waarin de aangiftegegevens zijn vastgelegd, 
verwerkt worden. Als een verloren voorwerp overeenkomt met 
een gevonden voorwerp, dient het programma de naam van het 
voorwerp, samen met de vinder, de aangever en hun telefoon- 
nummers, af te drukken. Schrijf het programma. Neem aan dat 
de aangifterecords niet alfabetisch geordend zijn. Verwerk elk 
aangifterecord direct na het inlezen, gebruikmakend van een 
halveringszoekmethode. 


14 ZORGEN DAT EEN PROGRAMMA 
GOED WERKT 


In dit boek hebben we steeds nadruk gelegd op technieken om gestruc- 
tureerd te programmeren. Deze technieken omvatten stapgewijze 
verfijning, programmeren zonder de GO TO-statement (met uitzon- 
dering van GO TO's gebruikt in voorwaardelijke lussen), keuze van 
betekenisvolle identificatoren, enzovoort. 


We hebben ook enkele technieken voor het testen en het foutvrij ma- 
ken van programma's behandeld. Al deze technieken hebben ten 
doel het schrijven van correcte programma's te bevorderen. In dit 
hoofdstuk worden de reeds besproken technieken samengebundeld en 
uitgediept. 


14.1 PROGRAMMASPECIFICATIES 


In de specificaties van een programma legt men vast, wat van een 
programma wordt verwacht. Alvorens met het schrijven van een 
programma te beginnen, dient de programmeur over gedetailleerde, 
schriftelijk vastgelegde specificaties te beschikken. 


Stel dat een uitzendbureau haar werknemers wil gaan uitbetalen door 
middel van betaalopdrachten aan een bank. De betaalopdrachten moe- ` 
ten door de computer worden geproduceerd. Hiertoe wordt een com- 
puterbestand bijgehouden, met voor iedere werknemer één record, 
waarin naam en netto loon worden vastgelegd. De programmeur. 
dient in dit geval onder andere de recordindeling en de opmaak van 
de betaalopdracht precies te kennen. Beide vormen een essentieel 
onderdeel van de programmaspecificaties. 


Bij programmaspecificaties dient vooral aandacht te worden besteed 
aan randgevallen. In ons voorbeeld zou een record een bedrag van 

f 0.00 kunnen bevatten als een werknemer om de een of andere 
reden niets moet worden uitbetaald. Wordt hiermee geen rekening 
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gehouden, dan zou dit in principe kunnen resulteren in tientallen 
zinloze 'betalingen'. Helaas komt het maar al te vaak voor dat 
programma's dergelijke randgevallen niet correct afhandelen. 


14.2 DEFENSIEF PROGRAMMEREN 


Bij het produceren van invoergegevens voor een programma kunnen 
vergissingen voorkomen. Er kunnen fouten worden gemaakt bij het 
intoetsen van bedragen of getallen; de in te voeren gegevens kunnen 
te groot zijn om door het programma te worden verwerkt; men kan 
meer invoergegevens aanleveren dan het programma kan verwer- 
ken, enzovoort. Hierdoor kan het programma 'stuklopen', dat wil 
zeggen onder het slaken van een meer of minder doorzichtige fout- 
boodschap abnormaal eindigen of, nog erger, onjuiste resultaten 
leveren. 


De afhandeling van invoerfouten kan geregeld zijn in de programma- 
specificaties, maar wordt ook wel, bewust of onbewust, overgelaten 
aan de programmeur. In ieder geval dient het programma adequaat 
op ondeugdelijke invoergegevens te reageren. Men spreekt hierbij 


van defensief programmeren. 


Defensief programmeren kan inhouden, dat het programma ongeldi- 
ge invoergegevens automatisch ontdekt en signaleert, en dat de ver- 
dere uitvoering van het programma wordt gestaakt. Men kan het 
programma ook zo inrichten, dat in eerste instantie alle invoergege- 
vens worden geaccepteerd, ongeacht of ze geldig zijn of niet. Blij- 
ken gegevens bij nadere toetsing ondeugdelijk, dan moet het pro- 
gramma ze òf negeren, òf trachten er een redelijke interpretatie 
aan te geven. Hoe dan ook, het behoort tot de verantwoordelijkheid 
van de programmeur, zodanig defensief te werk te gaan, dat zijn 
produkt tegen invoerfouten bestand is. 


14.3 MENTALITEIT EN WERKGEWOONTEN 


De kwaliteit van een computerprogramma wordt grotendeels bepaald 
door de mentaliteit en werkgewoonten van de programmeur. 
Sommige programmeurs onderschatten de programmeertaak. Ze 
schrijven hun programma's te haastig, testen ze onvoldoende uit, 

en nemen maar al te snel aan dat hun programma's correct zijn. 


De meeste programma's bevatten in eerste aanleg wel enkele fou- 
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ten. Dit is ook niet verwonderlijk als men het enorme aantal moge- 
lijke programmeerfouten en de menselijke feilbaarheid van elke 
programmeur in aanmerking neemt. De programmeur dient er dan 
ook van uit te gaan dat geen enkel programma correct is, zolang de 
correctheid niet is aangetoond. 


Bij het opschrijven van computerprogramma's is het verstandig 
-hoe triviaal dat ook lijkt- gebruik te maken van een zacht potlood. 
Correcties en verbeteringen kunnen daardoor gemakkelijker worden 
aangebracht. Als ingrijpende wijzigingen nodig zijn, kan men beter 
de gehele bladzijde herschrijven. Pas als de programmeur tot de 
slotsom is gekomen dat er geen wijzigingen meer nodig zijn, dient 
het programma ter verwerking aan de computer te worden aangebo- 
den. 


Deze methode van programmavoorbereiding kan de programmeur 
veel werk besparen. De besparingen komen voort uit het feit dat het 
veranderen van een programma betrekkelijk gemakkelijk is als het 
alleen nog maar op papier, en nog vers in het geheugen van de pro- 
grammeur aanwezig is. Zijn in een later stadium veranderingen 
nodig, dan moet de programmeur zich opnieuw met het programma 
vertrouwd maken, alvorens die veranderingen met voldoende zeker- 
heid te kunnen uitvoeren. Enkele minuten die men van achter het 
bureau aan het controleren van een programma besteedt, kunnen 
ettelijke uren correctiewerk achteraf voorkomen. 


14.4 PROGRAMMACORRECTHEID 


De meest effectieve manier om te controleren of een programma 
correct is, bestaat uit een grondige bestudering. Het kan daarbij 
nuttig zijn het programma ook nog door een andere programmeur 
te laten controleren. Dit kan het beste plaatsvinden als het pro- 
gramma naar de mening van de auteur correct is, maar nog niet 
ter verwerking is aangeboden. 

Door het bestuderen van het programma vanuit een ander 'gezichts- 
punt' kunnen 'typische'! fouten, zoals onjuiste lusinitialisaties, aan 
het licht komen. 


Soms kan de correctheid van een programma met behulp van mathe- 
matische benaderingen bewezen worden, Het bewijs dat een pro- 
gramma correct is wordt dan op een gelijksoortige manier geleverd 
als het bewijs van een meetkundige stelling. Het komt echter vaker 
voor dat programma's als correct worden geaccepteerd vanuit een 
niet-mathematische benadering, en op grond van gezond verstand. 
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Het leveren van een formeel correctheidsbewijs is een moeilijk pro- 
ces, en als een of meer programmeurs een programma bestudeerd 
en begrepen hebben, en tot de overtuiging zijn gekomen dat het cor- 
rect is, zal men daar meestal genoegen mee moeten nemen. Steeds 
moet echter worden aangenomen dat een programma incorrect kan 
zijn, zolang het tegendeel niet is bewezen. 


14.5 PROGRAMMEERSTIJL 


Een programma dient men gemakkelijk te kunnen lezen en begrijpen, 
onder meer omdat het nagaan van de correctheid ervan anders 
bemoeilijkt zou worden. De programmeur moet streven naar een 
goede programmeerstijl, met in zijn achterhoofd de gedachte, dat 
andere lezers haast zullen hebben, en kritisch zullen zijn ten aan- 
zien van slordigheden en verwarrende constructies in het program- 
meren. Bovendien komt het vaak voor dat een programmeur, ter- 
wijl hij bezig is het programma duidelijker en begrijpelijker te 
maken, manieren ontdekt om zijn programma te verbeteren of te 
corrigeren. 


Zoals het moeite kost goed Nederlands te schrijven, zo moet er ook 
moeite worden gedaan om programma's te schrijven die zich gemak- 
kelijk laten lezen. Om goed te kunnen schrijven is zorgvuldigheid 

en oefening vereist. 


Eén manier om de leesbaarheid en begrijpelijkheid van een pro- 
gramma te verhogen is gebruik te maken van een duidelijke struc- 
tuur. Hierdoor kan de lezer de verhouding tussen de verschillende 
programma-onderdelen gemakkelijker doorzien. 


Andere hulpmiddelen zijn de technieken van stapgewijze verfijning 
en modulair programmeren. Deze techniekeu zijn eerder aan de 
orde geweest als hulpmiddelen bij het logische ontwerp van pro- 
gramma's, Ze kunnen echter ook bijdragen tot verhoging van de 
leesbaarheid. 


14.6 COMMENTAAR EN IDENTIFICATOREN 


Eén van de regels van een goede programmeerstijl is dat commen- 
taar en identificatoren zo worden gekozen, dat ze een programma 
begrijpelijker maken. Commentaar dient de bedoelingen van de 
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programmeur weer te geven. Het is een goede gewoonte commen- 
taar niet na, maar tijdens de ontwikkeling van het programma te 
schrijven. 


Bij goede programma's kan commentaar tot een minimum beperkt 
blijven, omdat de tekst van het programma vrij nauwkeurig de bedoe- 
lingen van de programmeur weerspiegelt. Programma's worden 
juist moeilijker te lezen als ze doorspekt zijn met overbodig com- 
mentaar zoals: 


C VERHOOG N MET 1 
N=N+1 


Commentaar is meestal nodig om de navolgende gegevens vast te 
leggen: 


- De doelstelling van een programma. Welk probleem moet het 
programma oplossen? 

- De auteur van het programma en de datum van totstandkoming. 

- De doelstelling van de afzonderlijke modules. 

- De doelstelling van een groep statements, bijvoorbeeld van een 
lus. 

- Uitgangspunten en beperkingen. Op sommige plaatsen in een pro- 
gramma kunnen bepaalde aannamen en/of beperkingen ten aanzien 
van variabelen en data van kracht zijn. 

- Ondoorzichtige of ongewone statements. Als regel dienen zulke 
statements vermeden te worden, Zijn ze onmisbaar, dan dienen 
ze toegelicht te worden, bijvoorbeeld: 


C AFRONDING CENTEN TOT DICHTSTBIJZIJNDE GULDEN 
GULDEN = (CENT + 50) / 100.0 
CENT = 100 +» GULDEN 


Identificatoren 


Ook goed gekozen identificatoren verhogen de leesbaarheid van een 
programma, Elke identificator dient de functie van het benoemde 
object weer te geven. Een array, bijvoorbeeld, die men gebruikt 
om kredietgrenzen aan te geven, kan men beter GRENS of KGRENS 
noemen in plaats van ARRAY. Evenzo kan men een subprogramma 
dat gebruikt wordt om rekeningen in te voeren beter de naam 
INVOER geven in plaats van bijvoorbeeld P1 of SUB. 


Voor variabelen die een relatief eenvoudig doel dienen, bijvoorbeeld 
het indiceren van een array, kan men zonder bezwaar volstaan met 
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identificatoren van één letter, bijvoorbeeld I, J of N; dergelijke 
indices zijn ook in de wiskunde gebruikelijk. Maar als de index een 
bijzondere betekenis heeft, bijvoorbeeld het tellen van invoerrecords, 
kan een langere identificator duidelijker zijn. 


Vermijd ondoorzichtige afkortingen en acronymen, zoals bijvoor- 
beeld KRDGRS voor kredietgrens. Tenzij de lezer afkortingen en 
acronymen kent, brengt het gebruik van dergelijke identificatoren 
een extra memorisatietaak met zich mee; de begrijpelijkheid van het 
programma wordt er niet mee gediend. Helaas kunnen FORTRAN- 
identificatoren maximaal uit slechts zes tekens bestaan, waardoor 
een zekere mate van afkorting onvermijdelijk is. Houd dan rekening 
met optimale leesbaarheid. 


Vermijd het gebruik van betekenisloze identificatoren zoals A, B, C, 
D en VAR1 zoveel mogelijk. Een identificator zoals D behoeft echter 
niet altijd zonder betekenis te zijn, bijvoorbeeld als D een diameter 
aangeeft. Het gebruik van cijfers zoals 1 of 2 aan het einde van een 
identificator, zoals SOM1 of HULP2, kan verwarring wekken, tenzij 
de betekenis daarvan uit de context duidelijk is. 


14.7 HET TESTEN 


De bedoeling van het testen is, door daadwerkelijke uitvoering aan te 
tonen dat een programma correct is. Omdat in het algemeen slechts 
een beperkt aantal tests uitgevoerd kunnen worden, dienen de testge- 
gevens met zorgvuldigheid gekozen te worden. Uiteindelijk geldt 
echter dat testen slechts de aanwezigheid en niet de afwezigheid van 
fouten aantoont. 


Wanneer de aanwezigheid van een programmafout of 'bug' (= luis) 
aan het licht wordt gebracht, wacht de programmeur de taak van het 
'debuggen' (= het ontluizen) van zijn programma. Een aantal tech- 
nieken hiervoor komen in de volgende paragraaf ter sprake. Hier 
beperken we ons tot het behandelen van een aantal testtechnieken. 


Waarop moet men letten? 


Om goede tests te ontwerpen zal de programmeur het programma 
moeten bestuderen. De tests dienen zo samengesteld te worden dat 
elke statement minstens één keer wordt uitgevoerd. 

Dit is echter niet voldoende. Neem bijvoorbeeld de statement: 


GEM = TOTAAL / AANTAL 


Ook al levert dit tijdens het testen het gewenste resultaat (kennelijk 
een gemiddelde waarde), dan behoeft dit nog niet te betekenen dat 
alles in orde is. De variabele AANTAL zou in sommige situaties 
bijvoorbeeld de waarde nul kunnen aannemen, wat het afbreken van 
programma-executie tot gevolg zou hebben. Elke statement dient 
dus niet slechts éénmaal maar onder alle mogelijke omstandigheden 
uitgevoerd te worden, Aandacht is vooral nodig voor het testen van: 


- Eindvoorwaarden. Zorg dat programmalussen zowel bij de eerste 
als bij de laatste doorgang correct worden uitgevoerd. Test voor- 
al die situaties waarin array-indices hun kleinst en grootst moge- 
lijke waarde bereiken. Let op tellers die de waarde nul kunnen 
aannemen. 


- Bijzondere voorwaarden. Zorg dat gegevens die slechts zelden 
voorkomen juist verwerkt worden, Als een programma foutbood- 
schappen produceert, zorg dan dat elke situatie waarin dergelijke 
boodschappen nodig zijn, uitgetest wordt. 


Extra uitvoer 


Aan de hand van de testresultaten moet de programmeur kunnen bepa- 
len of het programma correct functioneert. Soms is dit gemakkelijk, 
omdat het programma in het verloop van het executieproces voldoen- 
de gegevens afdrukt om dit te kunnen beoordelen. Soms zal de pro- 
grammeur echter zelf speciale uitvoeropdrachten in het programma 
moeten opnemen om voldoende gegevens te krijgen. Hierbij kan 
aandacht worden besteed aan de navolgende punten. 


- Druk -indien praktisch uitvoerbaar- ingelezen gegevens onmid- 
dellijk af. 


- Druk meldingen af om de uitvoeringsvolgorde van statements en 
subprogramma's bij te houden, bijvoorbeeld: SUBROUTINE 
INVOER AANGEROEPEN, 


- Druk waarden van variabelen af. Hierdoor kan de programmeur 
zelf controleren of (tussentijdse) waarden correct zijn. Bij pro- 
grammamodules kan men het beste de waarden van variabelen bij 
het betreden en verlaten van de modules afdrukken, waardoor 
beoordeeld kan worden of eventuele modificaties op de juiste wijze 
hebben plaatsgevonden. 
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- Druk waarschuwingen af als niet voldaan wordt aan aannamen. Stel 
dat een subroutine de variabele PLAATS gebruikt om de index aan 
te geven van het kleinste getal in een lijst van 12 getallen. De aan- 
name dat PLAATS een waarde van 1 t/m 12 krijgt kan men testen 
door: 


IF (PLAATS. LT.1. OR. PLAATS, GT.12) THEN 
PRINT x, 'FOUT: PLAATS=!', PLAATS 
END IF 


Bij het afdrukken van dergelijke informatie dient wel de gulden mid- 
denweg gevolgd te worden, Het afdrukken van teveel informatie zou 
er toe kunnen leiden dat niet alles gelezen wordt, en te weinig uit- 
voer zal niet voldoende informatie leveren over de executie van het 
programma. 


Andere aspecten 


In het ideale geval worden tests ontworpen voordat het programma 
ter verwerking aan de computer wordt aangeboden. De program- 
meur heeft het programma dan nog 'vers' in zijn geheugen, en kan 
dan gemakkelijker tests ontwerpen om alle statements te controle- 
ren. Soms ontdekt een programmeur dat bepaalde programmadelen 
moeilijk te testen zijn; vaak kan dit verholpen worden door een 
kleine modificatie van het programma. Deze veranderingen kunnen 
het beste worden aangebracht terwijl het programma alleen nog maar 
op papier staat, zodat er geen tijd verloren gaat met het intoetsen 
en verwerken van het programma. 


Het ontwerpen van tests vraagt ook een andere mentale instelling van 
de programmeur: hij moet zijn programma lezen vanuit een ander 
gezichtspunt. Ook daardoor kunnen fouten aan het licht komen. 


Naarmate programma's groter worden, wordt het moeilijker ze 
degelijk te testen. Bij grotere (modulair opgebouwde) programma's 
kunnen eerst de afzonderlijke modules getest worden. De modules 
worden dan gecombineerd tot grotere modules, die ook weer getest 
worden, enzovoort. Dit proces noemt men 'bottom-up' testen. 

Men maakt hierbij gebruik van speciaal geschreven testprogramma's 
die de modules aanroepen met verschillende waarden van de parame- 
ters, gemeenschappelijke variabelen en invoergegevens. 


Na eventuele modificaties dient men opnieuw te testen. Daarbij moet 
bijzondere aandacht worden besteed aan de delen die veranderd zijn. 
Het verdient aanbeveling ook de desbetreffende module in zijn geheel 


235 


opnieuw te testen of zelfs het volledige programma. De reden hier- 
voor is dat modificaties veelal onverwachte invloed kunnen hebben op 
andere delen van het programma, en daardoor nieuwe fouten kunnen 
veroorzaken. 


14.8 DEBUGGING 


'Debugging' noemt men het proces van het lokaliseren en verwijderen 
van programmeerfouten uit een programma. Aanleiding daartoe is 
het slecht functioneren van het programma: het programma is als het 
ware 'ziek! en moet 'genezen!' worden. Soms ligt het symptoom ver 
verwijderd van de oorzaak, Door verkeerde statements in één deel 
van het programma, kunnen variabelen bijvoorbeeld een zodanige 
waarde krijgen, dat hele reeksen onvoorspelbare akties elders in 

het programma optreden. Het 'debuggen' kan een omslachtig proces 
zijn, en kan zelfs meer tijd in beslag nemen dan het schrijven van 
het programma. 


Programmeerfouten kunnen in de volgende categorieën worden 
onderverdeeld. 


- Fouten in het machine-leesbaar maken van het programma. Het 
sleutelwoord 'RETURN' bijvoorbeeld, kan bij vergissing ingetoetst 


zijn als 'RETRUN', i 


- Fouten in het gebruik van de programmeertaal. Een programmeur 


kan een taalconstructie verkeerd begrepen hebben. 

Zijn programma kan bijvoorbeeld fout zijn omdat hij aannam dat 
'PIET' alfabetisch voorafgaat aan 'PIET ' (in FORTRAN zijn ze 
alfabetisch gelijk). 


- Fouten in het schrijven van programmadelen. Ondanks een correct 


ontwerp, werd het algoritme niet correct in FORTRAN omgezet. 
Een lus, bijvoorbeeld, die ontworpen werd om rekeninggegevens 
in te lezen, zou ten gevolge van een onjuiste initialisatie hele- 
maal niet uitgevoerd kunnen worden. 


- Fouten in programma-ontwerp. Programma-onderdelen, en de 
interactie daartussen, kunnen verkeerd ontworpen zijn. De ont- 


werper van een programma kan vergeten zijn variabelen te initia- 
liseren die in andere modules worden gebruikt. Hij kan over het 
hoofd zien dat een module, bijvoorbeeld subroutine BYWERK in 
hoofdstuk 12, slechts aangeroepen moet worden na een andere 
module, bijvoorbeeld de subroutine INVOER. 
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- Het oplossen van het verkeerde probleem. De programmeur heeft 
het op te lossen probleem niet goed begrepen. Hij kan de pro- 


grammaspecificaties verkeerd begrepen hebben. Wellicht waren 
de specificaties incorrect of onvolledig. 


In deze lijst van mogelijke fouten is er een progressie van 'minder 
ernstig! tot '‘rampzalig', Fouten van de eerstgenoemde categorie 
(zoals fouten bij het intoetsen) zijn, eenmaal ontdekt, tamelijk 
eenvoudig te corrigeren. Fouten van de laatste categorie -het 
verkeerd begrijpen van de doelstellingen van het programma- 
kunnen betekenen dat het gehele programma aan de kant gezet, 

en opnieuw begonnen moet worden. 


Sommige programmeurs zijn nogal optimistisch ingesteld en gaan er 
te snel van uit dat fouten die aan het licht komen niet ernstig zijn. 
Met allerlei ad hoe oplossingen wordt getracht de ‘symptomen! te 
bestrijden, terwijl onvoldoende aandacht wordt besteed aan de oor- 
zaken van het probleem. 


Fouten kunnen overigens een indicatie zijn van slordig programme- 
ren. In dit geval kan het de moeite lonen om, na het ontdekken van 

één fout, het programma aan een grondige controle te onderwerpen. 
De kans is immers groot dat er dan ook andere -wellicht ernstige- 
fouten in het programma schuilen. 


Adviezen bij het opsporen van fouten 


Van de minst ernstige fouten, zoals spelfouten in sleutelwoorden, 
worden vele automatisch aangegeven door foutmeldingen, omdat 
deze fouten een ongeldig FORTRAN-programma tot gevolg hebben. 
Deze fouten zijn meestal gemakkelijk te verhelpen. Andere fouten 
kunnen daarentegen bijzonder verradelijk zijn. Ze schijnen soms 
alle pogingen te trotseren die men in het werk stelt om ze op te spo- 
ren en te corrigeren, In de navolgende lijst geven we enkele advie- 
zen om dergelijke fouten te vinden, Enkele van deze adviezen zijn 
eerder in dit boek genoemd, en worden hier herhaald. 


- Lees alle foutboodschappen. In hun haast om de programma- 
uitvoer te lezen, gaan programmeurs soms voorbij aan afgedrukte 
waarschuwingen en boodschappen. Deze meldingen kunnen een 
fout aangeven. 


- Wees bedacht op automatische correcties. Sommige compilers 
proberen programma's met alle mogelijke middelen te laten func- 


tioneren, en voeren daartoe soms zelf correcties uit. Een pro- 
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grammeur zou bijvoorbeeld uit slordigheid X = 2Y kunnen schrij- 
ven. Een compiler zou dit kunnen ‘corrigeren! als X = 2. Derge- 
lijke correcties kunnen tijd besparen doordat een groter deel van 
een programma gecompileerd en eventueel uitgevoerd wordt. Deze 
correcties dienen echter niet als 'intelligent' advies opgevat te 
worden. De compiler heeft immers geen enkel begrip van het pro- 
bleem waarvoor een oplossing wordt gezocht. 


- De eerste foutmeldingen kunnen nuttiger zijn dan latere. Dit houdt 


verband met het feit dat de eerste meldingen zich dichter bij de 
bron van het probleem bevinden, Latere meldingen geven veelal 
slechts aan dat een eerder geconstateerde fout doorwerkt op ande- 
re delen van het programma. 


- Wees bedacht op typografische fouten. Soms kan men de statement 


X = X + I keer op keer aanzien als een opdracht om X met de 
waarde 1 te verhogen. Naast verwarring met de letter I en het cij- 
fer 1 komen ook vergissingen voor met de letter O en het cijfer 0. 
Dergelijke fouten kan men vinden door het programma teken voor 
teken te lezen, op dezelfde manier als de computer zelf. De men- 
selijke neiging om te lezen wat men verwacht, in plaats van wat 

er staat, bemoeilijkt het foutzoeken. 


- Wees bedacht op spelfouten. In sommige woorden kunnen spelfou- 
ten gemakkelijk binnensluipen. Gebruikt men bijvoorbeeld in het 
begin van een programma een variabele PRYS, dan kan dit later 
wel eens bij vergissing worden geschreven als PRIJS, zonder dat 
het direct opvalt. Uiteraard heeft men hier met twee verschillen- 
de variabelen te doen. Is de tweede variabele niet gedeclareerd, 
dan wordt de variabele in FORTRAN 77 klakkeloos als een nieuwe 
variabele geaccepteerd; het datatype van die variabele wordt dan 
volgens een standaardeonventie vastgesteld. 


In het uiterste geval kan het nodig zijn het programma opnieuw uit te 
voeren om meer informatie omtrent de fouten te verkrijgen. Hierbij 
kunnen statements worden toegevoegd om de waarde van variabelen 
af te drukken, of om de uitvoering van het programma beter te kun- 
nen volgen. Men maakt hierbij gebruik van dezelfde technieken als 
bij het testen van een programma. Overigens kan het feit, dat der- 
gelijke extra uitvoer nodig is, erop duiden, dat de teststatements 
met onvoldoende zorg zijn samengesteld. 
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14.9 SAMENVATTING 


In dit hoofdstuk zijn technieken behandeld waarmee men ervoor kan 
zorgen dat een programma goed functioneert. Een programma kan 
op ontelbare manieren incorrect functioneren. De programmeur 
moet daarom in alle stadia van zijn werk de nodige voorzichtigheid 
(leren) betrachten. T^ snel een programma ter verwerking aanbie- 
den, resulteert veelal in hardnekkige fouten, die moeilijk op te spo- 
ren en te corrigeren zijn. De volgende belangrijke technieken en 
begrippen kwamen in dit hoofdstuk aan de orde. 


programmaspecificaties: 


programmeergewoonten: 


bewijzen van programma- 
correctheid: 


programmeerstijl: 


gebruik van commentaar 
en goede identificatoren: 


Een schriftelijke vastlegging van de 
doelstellingen van een programma. De 
specificaties dienen onder andere de 
vorm van de in- en uitvoergegevens, 

en de aard van de uit te voeren bewer- 
kingen aan te geven. In wezen geven de 
specificaties globaal aan hoe de com- 
puter moet worden gebruikt om het 
desbetreffende probleem op te lossen, 


De wijze waarop een programmeur 
zijn werk aanpakt. Een nauwkeurige 
werkwijze, waarbij het programma 
grondig bestudeerd en zonodig aange- 
past wordt, alvorens het ter verwer- 
king aan te bieden, is belangrijk. 


Het langs theoretische weg aantonen, 
dat een programma aan zijn specifica- 
ties voldoet. Formele correctheidsbe- 
wijzen vereisen wiskundige bewijs- 
technieken, en zijn meestal moeilijk, 
zo niet onmogelijk, te leveren. 


De wijze waarop een programma is op- 
gebouwd en gestructureerd. Een goede 
programmeerstijl vergemakkelijkt het 

lezen en begrijpen van een programma. 


Goede programmeerstijl eist dat men 
commentaar en identificatoren zo kiest 
dat ze zoveel mogelijk bijdragen aan 
de begrijpelijkheid van het programma. 
Commentaar dient de bedoelingen van 
de programmeur te weerspiegelen. 


testen: 
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Identificatoren dienen de functie of het 
gebruik van het benoemde object weer 
te geven, 


Het uitvoeren van een programma om 
aan te tonen dat het aan de specifica- 
ties voldoet. Tests dienen zo ontwor- 
pen te zijn, dat alle mogelijk voorko- 
mende situaties worden uitgeprobeerd. 


debugging: Het corrigeren van de in een program- 


ma ontdekte fouten, Debugging kan het 
moeilijkste en meest tijdrovende aspect 
zijn van het operationeel maken van 
een programma. De in dit hoofdstuk 
behandelde technieken kunnen het 
‘debuggen' vereenvoudigen. 


14.10 OPGAVEN 


1. In deze opgave gaat het om defensief programmeren. Het navol- 
gende programma leest een lijst met namen, en drukt die in om- 
gekeerde volgorde af. Modificeer dit programma zodanig, dat 
foutieve invoergegevens op een elegante wijze worden ondervan- 
gen. De bestandrecords zelf kunnen niet veranderd worden. Wel 
kan eventueel een sluitrecord in het bestand worden opgenomen. 


40 


ong 


DRUK NAMEN AF IN OMGEKEERDE VOLGORDE 


CHARACTER#15 NAAM(10) 

INTEGER AANTAL, I 

READ 10, AANTAL 

FORMAT (13) 

DO 20 I = 1, AANTAL 
READ #, NAAM(I) 

CONTINUE 

I = AANTAL 

IF (I .LT. 1) GOTO 40 
PRINT #, NAAM(I) 
a a | 
GOTO 30 

CONTINUE 

STOP 

END 


invoer; aantal dataresels 
‘naami ’ 
‘naam2’ enz. (maximaal 10 namen) 
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2. Gevraagd wordt het volgende programma foutvrij te maken. 
Doelstelling van het programma is tekenreeksen in te lezen 
en te bepalen of ze palindromen zijn. Een tekenreeks is een 
palindroom indien de tekens van achteren naar voren gelezen 
dezelfde reeks leveren als omgekeerd, bijvoorbeeld 'NEGEN!, 
'ANNA', 'MAM', 


C DIT PROGRAMMA BEVAT FOUTEN 


CHARACTER#1 REEKS(10), OMKEER(10) 
CHARACTER#18 ANTWRD 
INTEGER TELLER, IT; Jy HELFT, K 
READ #, TELLER 
PRINT #, ‘TELLER VAN ‘, TELLER, ’ REEKSEN” 
READ 10, REEKS 
10 FORMAT (10A1) 
DO 40 I = 1, TELLER 
I = 10 
12 IF (REEKS AA elast GOTO 13 
he Ke 
GOTO 12 
13 CONTINUE 
HELFT 2 1 / BQ 
K = 1 
14 IF CT 0T. HELFF? GUTO 19 
OMKEER(R) = REEKS(I) 
KeK ta 
keek eii 
GOTO 14 
15 CONTINUE 
DO 20 J = 14 MELFT 
IF (REEKS(J) .EQ. OMKEER(J)) THEN 
ANTWRD = ‘IS EEN PALINDROOM’ 


ELSE 
ANTWRD = ‘IS GEEN PALINDROOM”’ 
ENDIF 
20 CONTINUE 
PRINT 30, REEKS, ANTWRD 
30 FORMAT (’ ‘, 1OA1, 1X, A18) 
40 CONTINUE 
STOP 
END 
invoer: 
6 
‘POP’ 
OL? 


‘AH HA MADAM HA HA’ 

‘MOOIE ZEDEN IN EDE ZEI OOM? 
‘ROTOR ’ 

‘JAN BOMAS ’ 


3. 


Probeer een programma te schrijven dat helemaal correct is 
alvorens het door een computer te laten verwerken. Roep de 
hulp van een medestudent of collega in om het programma te 
controleren na uzelf ervan overtuigd te hebben dat het program- 
ma foutvrij is. Noteer de tijd die u nodig had om het program- 
ma te schrijven, en noteer eventuele programmeerfouten. Het 
programma dient één van de volgende taken uit te voeren: 

a. het inlezen van een reeks INTEGER's, gevolgd door een fic- 
tieve afsluitwaarde van 99999, en het afdrukken van de som 
van de positieve, en de som van de negatieve INTEGER's; 

b. het inlezen en het afdrukken van een lijst van alfabetisch 
geordende namen. Als een naam meerdere malen voorkomt, 
dient hij slechts eenmaal afgedrukt te worden. 


Het volgende programma leest de namen van werknemers, het 
aantal gewerkte uren gedurende één week, en het loon per uur. 
Het programma berekent het brutoloon van elke werknemer, 
gebaseerd op het loonbedrag per uur en het aantal gewerkte uren, 
waarbij voor overuren (meer dan 40 uur/week) anderhalf maal 
het normale uurloon wordt betaald. Gevraagd wordt het pro- 
gramma leesbaar te maken door het toevoegen van duidelijk 
commentaar, en het kiezen van betekenisvolle identificatoren. 

Er zijn verder geen veranderingen nodig. 


C DIT PROGRAMMA BEVAT ONDUIDELIJKE IDENTIFICATOREN EN 
C HEEFT COMMENTAAR NODIG 


CHARACTER#20 B1 
INTEGER B, A, C; B2 
PRINT #:; ‘WERKNEMER ‘,‚ ” GEWONE UREN’, 
$ OVERWERK ’, ’ BETALING’ 
READ #, Bi, A, B 
5 IF (B1 EG. ’'Z222’) GOTO 10 
C= 0 
IF (A .GT. 40) THEN 
C = A - 40 
A = 40 
ENDIF 
B2 = B # (A + 1,5 # C) + 0,5 
PRINT #, Bi; A; C, B2 
READ #ž#,; Bi; A: B 


GOTO 5 

10 CONTINUE 

STOP 

END 
invoer: 
‘LEXI KOLT’ 5 3 
‘JOHN EVANS’ 59 5 
'AAD VERMEYDEN ’ 30 10 
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15 SF/8: BESTANDEN EN RECORDS 


De begrippen bestand en record zijn reeds aan de orde geweest. Ook 
is het proces van het opzoeken van bepaalde records besproken. Dit 
proces bleek efficiënter te kunnen verlopen als het bestand gesor- 
teerd was, en daarom zijn enkele methoden voor het sorteren van 
een bestand van records behandeld. 


Alle sorteermethoden houden het verplaatsen van records binnen het 
geheugen van de computer in. In de behandelde sorteervoorbeelden 
hebben we nauwelijks stilgestaan bij records die uit meer dan één 
veld bestonden. Steeds ging het om één sleutelveld waarop gesor- 
teerd werd, en in onze voorbeelden hield het verplaatsen van een 
record dan ook slechts het verplaatsen van dit ene veld in. Bij de 
meeste toepassingen gaat het echter om records die meerdere vel- 
den bevatten. In dit hoofdstuk zullen we laten zien hoe dergelijke 
records in FORTRAN verwerkt worden. 


Als het om grote hoeveelheden gegevens gaat, is het ongebruikelijk 
-zo niet onmogelijk- de bestanden binnen het werkgeheugen van de 
computer onder te brengen. Gewoonlijk worden grotere bestanden 
ondergebracht op achtergrondgeheugens zoals magneetband- of 
schijvengeheugens. We moeten dan in staat zijn records van zo'n 
bestand te lezen of, omgekeerd, records van zo'n bestand te be- 
schrijven. We zullen dan ook aandacht schenken aan de mogelijkhe- 
den die FORTRAN biedt om met bestanden op het achtergrondgeheu- 
gen te werken. 


15.1 RECORDS IN FORTRAN 


Sommige programmeertalen, zoals COBOL en PL/I, bieden specia- 
le faciliteiten voor de verwerking van records. Daarbij kan de 
inhoud van verschillende variabelen worden samengevoegd in één 
record, en kan men het record als geheel benoemen en verwerken. 
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Een klantrecord, bijvoorbeeld, zou een naam-, adres- en telefoon- 
nummerveld kunnen bevatten, zoals de volgende figuur weergeeft. 


KLANT 


NAAM ADRES TELEFOON 


Dit type record zou in een telefoonnummerbestand kunnen voorkomen, 
Merk op dat de verschillende velden in een record niet slechts inhou- 
delijk kunnen verschillen, maar ook ten aanzien van datatype. Hier- 
in verschillen records van arrays, die men kan zien als een verza- 
meling elementen van hetzelfde datatype. 


Omdat FORTRAN geen faciliteiten kent om records als zodanig aan 
te geven, moeten we elk recordveld als een afzonderlijke variabele 
declareren. Bovenstaand KLANT-record zou als volgt gedefinieerd 
kunnen worden: 


C DEFINIEER KLANTRECORD 
CHARACTER * 20 NAAM 
CHARACTER * 30 ADRES 
CHARACTER*8 TELEF 


Bij de hierboven bedoelde talen zou zo'n record in zijn geheel 'toe- 
gekend' kunnen worden aan een ander record van dezelfde structuur. 
In FORTRAN moet de toekenning echter veld voor veld plaatsvinden. 
Ook het inlezen of afdrukken van een record moet veldgewijs gebeu- 
ren. 


15.2 RECORDARRAYS 


Onder recordarrays! verstaan we een verzameling 'gewone! ééndi- 
mensionale FORTRAN-arrays, waarbij voor elk veld van een record 
een aparte array wordt gedeclareerd, en waarbij recordnummer I 
wordt beschouwd als de verzameling velden -dus arrayelementen- 
met index I. Een recordarray van 100 records, bijvoorbeeld voor 
het eerder genoemde telefoonnummerbestand, zou men als volgt kun- 
nen declareren: 


IsRecordarray' is geen formeel begrip in FORTRAN. 
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CHARACTER « 20 NAAM(100) 
CHARACTER « 30 ADRE S(100) 
CHARACTERx8 TELEF(100) 


De verzameling NAAM(D, ADRES(I, TELEF(I) vormt nu samen het 
record met nummer I. 


Hieronder laten we een subroutine zien waarin records met behulp 
van deze 'recordarray' worden gesorteerd op de sleutel TELEF. De 
recordarray wordt in een COMMON-gebied ondergebracht, en is ook 
toegankelijk vanuit het hoofdprogramma. De enige parameter van de 
subroutine is AANTAL, die het eigenlijke aantal records aangeeft. 
Het sorteren vindt plaats door het verwisselen van records. Er 
wordt gebruik gemaakt van een hulprecord ten behoeve van het ver- 
wisselproces. 


C SORTEREN VAN RECORDS OP TELEFOONNUMMER 


SUBROUTINE SORT (AANTAL ) 
INTEGER AANTAL 

COMMON /TABEL/ NAAM, ADRES, TELEF 
CHARACTER#20 NAAM (100) 
CHARACTER#30 ADRES (100) 
CHARACTER*8 TELEF (100) 


C DEFINIEER TIJDELIJK RECORD 
CHARACTER#20 TNAAM 
CHARACTER*30 TADRES 
CHARACTER*8 TTELEF 


INTEGER I; J»: GROOT, LAATST 
bed 


10 IF (I .GE. AANTAL) GOTO 40 


LAATST = AANTAL ~- I + 1 


C LAATST <== GROOTSTE TELEFOONNR. 1 T/M LAATST 
GROOT = LAATST 
J = 1 
20 IF (J .GE. LAATST) GOTO 30 
IF (TELEF(J) .GT. TELEF(GROOT)) THEN 
GROOT = J 
ENDIF 
died «1 
GOTO 20 


30 CONTINUE 


C VERWISSEL RECORD(LAATST) EN RECORD MET GROOTSTE 
C TELEF (IN 1 T/M LAATST) 


TNAAM NAAM (LAATST) 


TADRES = ADRES(LAATST) 
TTELEF = TELEF (LAATST) 

NAAM (LAATST) = NAAM (GROOT) 
ADRES(LAATST) = ADRES(GROOT) 
TELEF(LAATST) = TELEF (GROOT) 
NAAM (GROOT) = TNAAM 
ADRES(GROOT) = TADRES 

TELEF (GROOT) = TTELEF 

Et Oa | 

GOTO 10 


40 CONTINUE 


RETURN 
END 


Bij vele toepassingen is het een voor de hand liggende benadering om 
gegevens voor te stellen in de vorm van records. Soms komt een 
record overeen met een af te drukken regel, maar records kunnen 
ook op grotere of kleinere gegevensverzamelingen betrekking heb- 
ben. Hieronder geven we een programma dat alle records van een 
klein telefoonnummerbestand inleest, vervolgens de subroutine 
SORT aanroept om de records in volgorde van telefoonnummer te 
sorteren, en tenslotte de resulterende lijst afdrukt. Elk record 
wordt hierbij veld voor veld ingelezen en afgedrukt door middel van 
FORMAT-bestuurde READ- en PRINT-statements. 


C LEES EEN KLEIN TELEFOONBESTAND, EN DRUK DIT AF IN 
C VOLGORDE VAN TELEFOONNUMMER 


COMMON /TABEL/ NAAM, ADRES, TELEF 
CHARACTER#20 NAAM (100) 
CHARACTER#30 ADRES (100) 
CHARACTER#B TELEF (100) 

INTEGER I; AANTAL 

READ #, AANTAL 


C VUL RECORDARRAY MET BESTANDGEGEVENS 
DO 20 I = 1, AANTAL 
READ 10, NAAM(I), ADRES(I), TELEF(I) 
10 FORMAT (A20, A30, A8) 
20 CONTINUE 
C SORTEER RECORDS IN VOLGORDE VAN TELEFOONNUMMER 
CALL SORT (AANTAL) 


C DRUK GESORTEERDE ARRAY AF 
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DO 40 I = 1, AANTAL 
PRINT 30, TELEF(I), NAAM(I):; ADRES(I) 
30 FORMAT (’ ‘, AB, 2X, AZO: A30) 
40 CONTINUE 


STOP 

END 
invoer: 
5 i 
JOHNSON, R.L. VALERIUSPLN 43 491640 
KEAST, P. LEIDSESTR 74 439721 
LIPSON; J.D. NACHTEGAALSTR 89 787851 
MATHON, R.A. DA COSTAPLN 13 962888 


CRAWFORD: C.A. VONDELLAAN 123 922799 


De uitvoer van dit programma is: 


439721 KEAST, P. LEIDSESTR 74 
491640 JOHNSON, R.L. VALERIUSPLN 43 
787851 LIPSON, J.D. NACHTEGAALSTR 89 
922799 CRAWFORD, C.A. VONDELLAAN 123 
962888 MATHON, R.A. DA COSTAPLN 13 


15.3 BESTANDEN OP ACHTERGRONDGEHEUGEN 


Zoals gezegd zijn we tot dusver bij onze bespreking van bestanden er 
van uitgegaan, dat die bestanden in het werkgeheugen waren onderge- 
bracht. In de praktijk echter zijn bestanden hiervoor meestal te 
groot. Het bestand wordt daarom op achtergrondgeheugen opgeslagen, 
en slechts dat gedeelte van het bestand dat op een bepaald moment 
nodig is wordt naar het werkgeheugen overgebracht. Als achter- 
grondgeheugen worden doorgaans magneetband- of magneetschijfge- 
heugens gebruikt. Een bestand op achtergrondgeheugen wordt ook 

wel file of (vooral in IBM-'milieus') dataset genoemd. 


Het gegevenstransport tussen achtergrond- en werkgeheugen vindt in 
principe recordgewijs plaatsl, Hierbij wordt een strikte verwer- 
‘kingsvolgorde gehanteerd: de verwerking begint bij het eerste 

record van het bestand, daarna komt het tweede aan de beurt, daarna 
het derde, enzovoort. Men spreekt hierbij van een sequentieel 


Let behulp van zogenaamde buffertechnieken kunnen ook veelvouden van 


records ('record blocks') tegelijkertijd getransporteerd worden, maar dit 
doet niets af van het hier besproken principe. 
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bestand. Bij sequentiële bestanden kan men slechts het record ver- 
werken dat 'aan de beurt! is; records kunnen niet rechtstreeks bena- 
derd wordenl, 


De REWIND-statement 


De REWIND-statement dient om een bestand op zijn beginpunt -het 
eerste record- te positioneren, en moet uitgevoerd worden voordat 
men een bestand op achtergrondgeheugen leest of beschrijft. De 
statement heeft de vorm: 


REWIND bestandnummer 


waarbij het bestandnummer een INTEGER-constante zonder alge- 
braisch teken en ongelijk nul is. 


De beschikbare bestandnummers zijn afhankelijk van de gebruikte 
computerinstallatie, en moeten vaak door middel van aanvullende 
karweibesturingsopdrachten nader worden gedefinieerd. 


Je term 'REWIND' houdt historisch gezien verband met magneetban- 
den, en duidt op het terugspoelen van zo'n band tot zijn beginpunt, 
althans het punt waar het eerste record van het desbetreffende 
bestand is vastgelegd. De REWIND-statement wordt echter ook 
gebruikt voor bestanden op magneetschijfgeheugen, hoewel men daar- 
bij moeilijk van 'terugspoelen' kan spreken. 


Het beschrijven van een bestand 


Om het eerste, of eerstvolgende, record van een bestand te beschrij- 
ven, gebruikt men een statement van de vorm: 


WRITE (bestandnummer) lijst met variabelen gescheiden door 
komma's 


Het schrijven gebeurt hierbij zonder formatbesturing, d.w.z. de 
waarde van de variabelen komt zonder enige conversie (dus in 
interne representatie) in het bestand terecht. 

De lijst met variabelen bepaalt de gegevens die in het record worden 
vastgelegd. Elk van deze variabelen is òf een arrayelement2 òf een 
gewone 'enkelvoudige' variabele. 


1FORTRAN 77 kent ook faciliteiten om zogenaamde 'direct toegankelijke! 
bestanden te verwerken. 

2Dit is een SF /k-beperking; in FORTRAN 77 zijn ook volledige arrays 
toegestaan. 
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De datatypen van de velden waaruit een record bestaat noemen we het 
recordprofiel (Engels: template). In het telefoonlijstprogramma van 
de vorige paragraaf, bijvoorbeeld, bestaat het profiel uit de data- 
typen CHARACTER * 20, CHARACTER * 30, en CHARACTER * 8, 
Alle records van een file dienen volgens hetzelfde recordprofiel 
beschreven te worden. 


De ENDFILE-statement 


Na het schrijven van het laatste record dient men het bestand af te 
sluiten met de statement: 


ENDFILE (bestandnummer) 


Desgewenst kan het bestand in hetzelfde programma teruggespoeld 
en gelezen worden, Anders kan het bestand later worden gelezen of 
eventueel aangevuld. 


Het lezen van een bestand 


Willen we een bestand op achtergrondgeheugen lezen, dan moet het 
bestand eerst met behulp van een REWIND-statement ingesteld 
worden. Daarna kan men het eerste record inlezen door middel van 
een statement van de vorm: 


READ (bestandnummer) lijst van variabelen gescheiden door komma's 


De inhoud van het eerste record wordt hierbij opgeborgen in de varia- 
bele(n) genoemd in de lijst. Bij volgende READ-statements worden 
de records in sequentiële volgorde ingelezen. Essentieel bij het inle- 
zen is dat het datatype van de records overeenstemt met het record- 
profiel. Ook moet de nodige voorzichtigheid worden betracht om 
pogingen voorbij het einde van het bestand te lezen te voorkomen. 
Hiertoe kan men bij het samenstellen van het bestand eventueel een 
speciaal sluitrecord opnemen, alvorens het bestand met een 
ENDFILE-statement af te sluiten, of gebruik maken van de zoge- 
naamde ERR- en/of IOSTAT-optie van de READ-statement. 


Na een REWIND kan een bestand òf gelezen ôf beschreven worden. 
Om na het lezen het bestand opnieuw te beschrijven, of omgekeerd, 
moet eerst een REWIND-operatie plaatsvinden. Bij het opnieuw 
beschrijven van een bestand gaat de oorspronkelijke inhoud verloren, 
en moet opnieuw worden afgesloten met een ENDFILE-statement. 
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15.4 ONDERHOUD VAN BESTANDEN 


Als voorbeeld van het lezen en beschrijven van bestanden gaan we uit 
van een eenvoudig geval van bestandonderhoud (zie onderstaand pro- 
gramma). We nemen aan dat er een bestand van klantenrecords 
bestaat met bestandnummer 3, en dat dit bestand bijgewerkt moet 
worden met records van nieuwe klanten. Elk record correspondeert 
met een transactie of mutatie die in een nieuwe, bijgewerkte versie 
van het bestand moet worden opgenomen. We duiden de nieuwe ver- 
sie aan met bestandnummer 4. Zowel het oorspronkelijke bestand 
als de mutaties zijn alfabetisch geordend op naam van de klant. Als 
sluitrecord van alle bestanden geldt een record met de waarde ZZZ 
in het naamveld. 


C TOEVOEGEN NIEUWE RECORDS AAN KLANTENBESTAND 


CHARACTER#20 NAAM: MNAAM 

CHARACTER#30 ADRES, MADRES 
CHARACTER#8 TELEF, MTELEF 
REWIND 3 

REWIND 4 


C LEES EERSTE RECORD VAN KLANTENBESTAND 
READ (3) NAAM, ADRES, TELEF 
C LEES EERSTE MUTATIERECORD 


READ 10, MANAAM, MADRES, MTELEF 
10 FORMAT (A20, A30, AB) 


C MUTEER KLANTENBESTAND 


15 IF (NAAM .EQ. ‘222’ .AND. MNAAM .EQ. 'ZZZ’) GOTO 25 
IF (NAAM .LT. MNAAM) THEN 
WRITE (4) NAAM, ADRES, TELEF 
READ (3) NAAM, ADRES, TELEF 


WRITE (4) MNAAM, MADRES, MTELEF 
READ 20, MNAAM, MADRES, MTELEF 
20 FORMAT (A20, A30, A8) 
ENDIF 
GOTO 15 
25 CONTINUE 


C VOEG AFSLUITRECORD TOE AAN EINDE BESTAND 


WRITE (4) NAAM: ADRES, TELEF 
ENDFILE 4 


STOP 
END 
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invoer: 


transactierecords 
222 NULL NULL 


Merk op dat het programma veel overeenkomst vertoont met het sor- 
teer-samenvoegprogramma van hoofdstuk 13; in bovenstaand voor- 
beeld gaat het echter om het samenvoegen van bestanden in plaats 
van arrays. 


15.5 SAMENVATTING 


In dit hoofdstuk hebben we laten zien hoe in FORTRAN records voor- 
gesteld en verwerkt kunnen worden. De volgende kernbegrippen kwa- 
men daarbij aan de orde. 


record: Een uit één of meer velden samenge- 
stelde gegevensstaat. Een record kan 
bijvoorbeeld samengesteld zijn uit een 
naam-, adres- en telefoonnummerveld. 


recordprofiel: Lijst van de met de velden overeenko- 
mende datatypen in een record, 


file: Een term die veelal wordt gebruikt om 
een gegevensbestand op achtergrondge- 
heugen aan te duiden, In plaats hiervan 
spreekt men ook wel van dataset of 
(gewoon) bestand. De vorm van het 
achtergrondgeheugen is doorgaans mag- 
neetband- of magneetschijfgeheugen. 


sequentieel bestand: Een bestand waarvan de records slechts 
verwerkt (d.i. gelezen of beschreven) 
kunnen worden in de volgorde waarin ze 
zijn opgeslagen, dat wil zeggen eerst 
het eerste record, vervolgens het 
tweede, enzovoort. 


REWIND: Een statement om een bestand te initia- 
liseren zodat het gelezen of beschreven 
kan worden. Het bestand wordt daarbij 
aan het begin van het eerste record 
gepositioneerd. 


lezen van een bestand: 


beschrijven van een 
bestand: 


ENDFILE: 


bestandonderhoud: 
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Het transporteren van de inhoud van het 
eerste of eerstvolgende record van een 
bestand naar variabelen in het werkge- 
heugen door een READ-statement, bijv.: 


READ (bestandnummer) lijst met vari- 
abelen gescheiden door komma's 


De lijst met variabelen bepaalt de 
bestemming van de getransporteerde 
gegevens. Het recordprofiel en de 
datatypes van de in de lijst genoemde 
variabele(n) moeten met elkaar over- 
eenstemmen. Het bestandnummer is 
een INTEGER-constante, bijvoorbeeld 
3, waarmee in het programma aan het 
desbetreffende bestand gerefereerd kan 
worden. Afhankelijk van het gebruikte 
computersysteem zal men doorgaans op 
de een of andere wijze een koppeling tot 
stand moeten brengen tussen deze (sym- 
bolische) bestandsaanduiding en het 
bestand zelf; deze koppeling vindt plaats 
door middel van besturingsopdrachten. 


Het transporteren van de inhoud van 
variabelen in het werkgeheugen naar 
het eerste of eerstvolgende record van 
een bestand door een WRITE-statement, 
bijvoorbeeld: 


WRITE (bestandnummer) lijst van vari- 
abelen gescheiden door komma's 


Een statement waarmee een bestand na 
het schrijven van het laatste record 
wordt afgesloten. 


Het bijwerken van een bestand. Dit 
houdt in het lezen van mutaties en het 
toevoegen, verwijderen of modificeren 
van bestandrecords. Een bestaand 
bestand kan gemodificeerd of uitgebreid 
worden door het creëren van een nieuw 
bestand. 
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15.6 OPGAVEN 


De opgaven van dit hoofdstuk zijn alle gebaseerd op een informatie- 
systeem ten behoeve van Plumbum B.V., een groothandel in lood- 
gietersartikelen. Er wordt een klantbestand met de volgende record- 


indeling bijgehouden: 
naam van de klant (posities 1 t/m 30) 
adres (posities 31 t/m 60) 
rekeningsaldo in centen (posities 61 t/m 70) 
kredietgrens in centen (posities 71 t/m 80) 


In de navolgende opgaven wordt gevraagd programma's te schrijven 
voor verschillende onderdelen van het bedrijfsinformatiesysteem. 


1. Schrijf een programma om de records van het klantbestand in 
alfabetische naamvolgorde ongeformatteerd naar een sequen- 
tieel bestand -een zogenaamd stambestand- op schijfgeheugen 
te schrijven. Er kan worden uitgegaan van maximaal 20 records. 


2. Schrijf een programma dat, uitgaande van het gesorteerde 
bestand, een nieuw bestand creëert door het verwijderen van 
oude klantenrecords en/of het toevoegen van nieuwe. De gege“ 
vens voor het programma zouden er bijvoorbeeld als volgt kun- 
nen uitzien: 


FA. bJANSENbbbbbbbbbbbbbbbbbbbbSTATIONSWEGb43, bEIDORPbbbbbbbb2511bbbbb10000 
FA, PIETERSE VERWIJDER 0 0 


ZZZ 


waarbij de tekst "VERWIJDER" in het adresveld aangeeft dat het 
desbetreffende klantenrecord in het stambestand verwijderd 
moet worden. Aangenomen mag worden, dat de records in alfa- 
betische volgorde staan. 


3. Schrijf een programma dat het stambestand van Plumbum B. V. 
inleest en een lijst afdrukt van die klanten waarvan de krediet- 
grens is overschreden. 


4. Schrijf een programma dat het Plumbum-bestand inleest, en een 
rekening afdrukt voor elke klant die een rekeningsaldo groter dan 
nul heeft. 


Voorbeeld 


Voor het klantenrecord: 


FA.bJANSE Nbbbbb enzovoort (zie boven) 


dient het programma de volgende rekening af te drukken: 


PLUMBUM B.V. GROOTHANDEL IN LOODGIETERSARTIKELEN 


AAN : FA. JANSEN 
STATIONSWEG 43 
EIDORP 


REKENING GELEVERDE GOEDEREN : FL.25,11 


GELIEVE DIT BEDRAG BINNEN 14 DAGEN OVER TE MAKEN OP 
REKENINGNR. 1234, XYZ BANK TE EIDORP. 
POSTREKENINGNR. VAN DE BANK : 5678. 


Het afdrukken van guldens in plaats van centen in deze rekening 
kan plaatsvinden door te delen door 100.0, en gebruik te maken 
van een F8.,2 veldbeschrijver. 


Schrijf een programma voor het bijwerken van het gesorteerde 
bestand met fakturerings- en betalingstransacties. De transac- 
ties worden in een bestand met de volgende recordindeling bij- 
gehouden: 


naam posities 1-30 
bedrag posities 31-60 
posities 61-80: blanco 


Voor elke faktureringstransactie dient het rekeningsaldo met het 
gespecificeerde bedrag te worden verhoogd. Betalingstransac- 
ties hebben de volgende recordindeling: 


naam posities 1-30 
bedrag posities 31-60 
posities 61-80: blanco 


Voor elke betalingstransactie dient het rekeningsaldo met het 
gespecificeerde bedrag te worden verlaagd. Het programma 
dient alle transacties te sorteren alvorens een nieuw bestand 
aan te maken. 


16 GEGEVENSSTRUCTUREN 


In voorgaande hoofdstukken hebben we laten zien dat arrays een moge- 
lijkheid bieden om gegevens te organiseren, en dat records gebruikt 
worden om gegevens binnen een bestand te structureren. Grootheden 
zoals variabelen, arrays, records en bestanden zijn voorbeelden van 
wat we in het algemeen gegevensstructuren noemen. Zoals we met 
behulp van gestructureerd programmeren trachten programma's 
systematisch op te bouwen, zo kunnen we ook de wijze waarop gege- 
vens worden opgeslagen met behulp van gegevensstructuren system a- 
tiseren. 


In dit hoofdstuk gaan we in op een aantal nog niet behandelde gegevens- 
structuren. Aan de orde komen geketende lijsten en boomstructuren. 
Er bestaan verschillende soorten lijsten, bijvoorbeeld stapels, wacht- 
rijen en dubbelgeketende lijsten. Boomstructuren kunnen beperkt zijn 
tot binaire boomstructuren of kunnen van meer algemene aard zijn. 


In tegenstelling tot arrays vormen lijst- en boomstructüren geen 
onderdeel van de taal FORTRAN. We gebruiken arrays om die 
structuren te realiseren. De structuur wordt dus als het ware 
geprogrammeerd. 


16.1 GEKETENDE LIJSTEN 


Stel dat we een bestand met records hebben opgeslagen in een array 
met de naam DATA. De records zijn gerangschikt volgens een 
bepaalde sleutel. Eenvoudigheidshalve gaan we er van uit dat elk 
record slechts uit één enkel veld bestaat, dat (dus) tevens het sleu- 
telveld is. Gesteld dat de volgorde oplopend is, en dat geen sleutel- 
gegevens identiek zijn, dan geldt: 


DATA (I+1). GT. DATA (D 
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Tot zover geen problemen. 

Moeilijk wordt het, wanneer in deze gegevensstructuur een nieuw 
gegeven tussen twee bestaande gegevens moet worden ingevoegd. 
Dit zou betekenen dat alle gegevens met een hogere sleutel dan het 
ingevoegde gegeven, één plaats moeten worden opgeschoven. 


Voorbeeld: 


Het toevoegen van het gegeven GOUDVIS aan onderstaande lijst geeft 
het volgende beeld te zien: 


vóór invoegen na invoegen 
DAT A(1) CAVIA CAVIA 
DAT A(2) HOND GOUDVIS 
DAT A(3) KAT HOND 
DAT A(4) MUIS KAT 
DAT A(5) PARKIET MUIS 
DAT A(6) 5 PARKIET 


Bij elke lijst die in de loop van de tijd aan veranderingen onderhevig 
is zullen we rekening moeten houden met toe te voegen en te verwij- 
deren gegevens. Daarbij ontstaat een gat als een gegeven verwijderd 
wordt zonder de navolgende gegevens (terug) te verschuiven. 


Voor lijsten die in de tijd veranderen kunnen we gebruik maken van 
een gegevensstructuur die we een geketende lijst noemen. In een 
geketende lijst bevat elk gegeven twee componenten: het gegeven 
zelf en daarnaast een ketenadres, ook wel schakel genoemd. 


Toegespitst op ons voorbeeld: elk gegeven in de array DATA wordt 
geassocieerd met een element van een tweede (eendimensionale) 
array LINK. Deze array wordt zo gevuld dat LINK(I) steeds het ele- 
ment van DATA aangeeft dat het volgende element van de gegevens- 
lijst bevat. Het begin van de keten wordt vastgelegd door een groot- 
heid die we anker noemen (Engels: anchor). 


Voorbeeld: 

anker: 3 

DATA(1) PARKIET LINK (1) 0 
DATA(2) KAT LINK (2) 5 
DATA (3) CAVIA LINK (3) 4 
DATA (4) HOND LINK (4) 2 
DATA (5) MUIS LINK (5) 1 


DATA (6) 5 LINK(6) 
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De fysieke volgorde in de array DATA is dus een andere dan de 
logische volgorde in de lijst. Aangezien het anker de waarde 3 heeft, 
is het eerste element van de lijst DATA(3). Het adres van het twee- 
de element van de keten staat in het bijbehorende element van LINK, 
dus LINK(3). LINK(3) heeft de waarde 4. Het tweede element van de 
gegevenslijst is dus te vinden in DATA(4), waarbij LINK(4) het adres 
van het derde element aangeeft, Zo gaat dit door totdat het einde 

van de lijst -aangegeven met ketenadres 0- wordt bereikt. Schema- 
tisch kunnen we deze geketende lijst weergeven volgens figuur 16-1. 


PARKIET re 


Fig. 16-1 


In plaats van ketenadres 0 kan men uiteraard ook andere waarden 
-bijvoorbeeld een negatief getal- gebruiken om het einde van de 
keten aan te geven. 


16.2 HET INVOEGEN IN GEKETENDE LIJSTEN 


Het voordeel van een geketende boven een eenvoudige sequentiële 
lijst blijkt bij het invoegen van nieuwe gegevens. Stel dat we het 
gegeven GOUDVIS op de juiste (alfabetische) plaats willen invoegen. 
Dit kunnen we bereiken door GOUDVIS op te bergen in DATA(6) 
-een (nog) vrije arraylokatie- en een tweetal ketenadressen te ver- 
anderen. In de eerste plaats wordt het ketenadres behorende bij 
CAVIA -het gegeven dat alfabetisch voorafgaat aan GOUDVIS- 
zodanig veranderd dat het verwijst naar DATA (6). LINK(3) krijgt 
dus de waarde 6. Vervolgens wordt het ketenadres in LINK (6) 

-dat wil zeggen het ketenadres van het volgende gegeven in de lijst- 
zodanig ingesteld dat het verwijst naar HOND in DATA(4). 


De geketende lijst wordt nu: 
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anker: 3 

DATA(1) PARKIET LINK(1) 0 
DATA(2) KAT LINK (2) 5 
DAT A(3) CAVIA LINK (3) 6 
DAT A(4) HOND LINK (4) 2 
DATA(5) MUIS LINK (5) 1 
DATA (6) GOUDVIS LINK (6) 4 
Schematisch: 


PARKIET En 
GOUDVIS 


Fig. 16-2. 


Om één gegeven toe te voegen moet dus één ketenadres veranderd en 
één geïnitieerd worden. Er is geen verschuiving van de oorspronke- 
lijke gegevens nodig. Vergeleken met een eenvoudige sequentiële 
lijst -waarbij we gemiddeld de helft van de lijst moeten verschuiven 
om een nieuw gegeven te kunnen opbergen- een aanzienlijke verbe- 
tering. Deze efficiency-verbetering heeft uiteraard wel een prijs: 
de extra geheugenruimte die nodig is voor het opbergen van de 
ketenadressen, 


16.3 GEHEUGENBEHEER BIJ GEKETENDE LIJSTEN 


Bij geketende lijsten wordt het geheugen voor een deel gebruikt voor 
de lijstgegevens zelf, en voor een deel om de structuur van die 
gegevens vast te leggen, Voor elke lijst geldt uiteraard dat we meer 
geheugenruimte nodig hebben naarmate hij groeit, en minder naar- 
mate hij afneemt. We moeten echter steeds genoeg ruimte reserve- 
ren om de langst voorkomende lijst te kunnen accomoderen. Aan de 
andere kant willen we zo weinig mogelijk geheugenruimte verspillen, 
Door nu bij het afnemen van de lijst -dat wil zeggen bij het verwijde- 
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ren van gegevens die niet langer nodig zijn- de vrijkomende geheu- 
genruimte te registreren, kunnen we bij latere toevoegingen deze 
ruimte opnieuw gebruiken, en daardoor een efficiënt geheugengebruik 
bevorderen. 


De registratie van vrije plaatsen in de gegevensarray vindt plaats op 
dezelfde wijze als de registratie van bezette plaatsen: we maken 
gebruik van een (tweede) adresketen. Deze keten wordt bijgehouden 
als een deelverzameling van het oorspronkelijke 'adresarray', dat 
daartoe van een apart begin- en eindpunt wordt voorzien. We illus- 
trerendit aan de hand van hetzelfde voorbeeld als in de vorige para- 
graaf, met dien verstande dat de arrays DATA en LINK nu zijn uitge- 
breid tot 10 elementen. Als anker van de twee adresketens gebruiken 
we de INTEGER-variabelen ANKERI1 en ANKERZ2. 


anker gegevensketen: ANKER1 = 10 

anker vrije ruimte : ANKER2 = 7 

DATA(I) MUIS LINK (1) 9 
DATA (2) KAT LINK (2) 1 
DATA (3) = LINK(3) 6 
DATA(4) HOND LINK (4) 2 
DAT A(5) ~ LINK(5) 0 
DATA(6) = LINK(6) 5 
DATA(7) -= LINK(7) 3 
DATA(8) GOUDVIS LINK (8) 4 
DATA(9) PARKIET LINK (9) 0 
DATA(10) CAVIA LINK(10) 8 


16.4 EEN SUBROUTINE TEN BEHOEVE VAN HET INVOEGEN IN 
EEN GEKETENDE LIJST 


In deze paragraaf ontwikkelen we een subroutine om een nieuw gege- 
ven in een geketende lijst in te voegen. We maken hierbij gebruik 
van de methode van stapgewijze verfijning. 


Als eerste stap leggen we de globale aanpak vast in een grove boom- 
structuur. We nemen aan dat het in te voegen gegeven opgeborgen is 
in de variabele GGEVEN, De boom ziet er voorlopig als volgt uit: 


voeg GGEVEN in 
in geketende lijst 


bepaal eerste array- berg GGEVEN op invoegen van array- 
element (index = in element element met index 
NIEUW) van keten NIEUW NIEUW in geketende 
vrije ruimte lijst 


Voor de uitwerking van de linkertak moeten we de index NIEUW bepa- 
len van het eerste vrije element, en het anker van de vrije-ruimte- 
keten aanpassen. De statements hiervoor luiden: 


NIEUW = ANKER? 
ANKER2 = LINK(ANKER?) 


Ook de middentak is eenvoudig: 


DATA(NIEUW) = GGEVEN 


Uitwerking van de rechtertak levert: 


invoegen van een arrayelement met 
index zede in geketende lijst 


IF lijst leeg THEN 
zet element op eerste plaats van lijst 
ELSE 
IF GGEVEN op eerste plaats thuishoort THEN 
zet element op eerste plaats van lijst 
ELSE 
bepaal plaats waar GGEVEN ingevoegd moet 
worden en pas ketenadressen aan 
END IF 
END IF 


GGEVEN zal op de eerste plaats moeten komen als de lijst leeg is, 
òf als GGEVEN kleiner is dan het eerste element van de lijst. De 
uitdrukking: 


IF lijst leeg THEN 


261 


kunnen we dus schrijven als: 
IF(ANKERI. EQ. NUL) THEN 


waarbij ANKERI het eerste element van de lijst voorstelt, en waarbij 
aangenomen is dat NUL -evenals ANKERI een INTEGER-variabele- 
geïnitialiseerd is op de waarde 0. 


De uitdrukking: 
zet element op eerste plaats van lijst 
kunnen we uitwerken tot: 


LINK(NIEUW) = ANKERI 
ANKERI = NIEUW 


Voor het gedeelte van het programma na de tweede ELSE moeten we 
de lijstgegevens stuk voor stuk vergelijken met GGEVEN. De index 
van het element dat vergeleken wordt noemen we VOLGND (volgende). 
Het zojuist vergeleken element noemen we VORIGE. Dit element 
moeten we bijhouden, want als: 


GGEVEN. LT. DATA(VOLGND) 


dan moet het element met index NIEUW tussen VORIGE en VOLGND 
worden ingevoegd, Het programmasegment hiervoor ziet er als 
volgt uit: 
C BEPAAL PLAATS VAN IN TE VOEGEN GEGEVEN 
VORIGE = ANKER 
VOLGND = LINK(ANKER1) 
5 IF (VOLGND .EG. NUL) GOTO 10 
IF (GGEVEN .LT. DATA(VOLGND)) THEN 
~ STEL VOLGND ZO IN DAT LUS BEEINDIGD WORDT 
VOLGND = NUL 
ELSE 


VORIGE = VOLGND 
VOLGND = LINK (VOLGND) 


ENDIF 
GOTO 5 
10 CONTINUE 
C PAS KETENADRESSEN AAN 


LINK(NIEUW) = LINK(VORIGE) 
LINK(VORIGE) = NIEUW 
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Nu kan de gehele subroutine uitgeschreven worden. Merk op dat 
DATA, LINK, ANKERI, ANKER2 en NUL in COMMON-gebieden 
zijn opgenomen, en dus elders een waarde kunnen krijgen. 


C INVOEGEN VAN NIEUW GEGEVEN IN GEKETENDE LIJST 


SUBROUTINE INVOEG(GGEVEN) 
CHARACTER#10 GGEVEN 
COMMON /LIJST1/ DATA 
CHARACTER#1O DATA(30) 
COMMON /LIJST2/ LINK, ANKER, ANKER2; NUL 
INTEGER LINK(30), ANKER1I, ANKERZ, NUL 
INTEGER NIEUW, VORIGE, VOLGND 


C BEPAAL DE PLAATS VAN HET IN TE VOEGEN GEGEVEN 
NIEUW = ANKERZ 
ANKERZ = LINK(ANKERZ) 

C BERG HET NIEUWE GEGEVEN OP 


DATA(NIEUW) = GGEVEN 
C BEPAAL OF NIEUW GEGEVEN AAN BEGIN VAN LIJST KOMT 


IF (ANKER1 .EG. NUL) THEN 
LINK(NIEUW) = ANKERI 
ANKER 1 = NIEUW 
ELSE 
IF (GGEVEN .LT. DATA(ANKER1)) THEN 
LINK(NIEUW) = ANKERI 


ANKER 1 = NIEUW 
ELSE 
C BEPAAL PLAATS VAN IN TE VOEGEN GEGEVEN 
C ##+#+BOVENSTAAND PROGRAMMAFRAGMENT HIER INYDEGEN*+#+# 
ENDIF 
ENDIF 
RETURN 


END 


16.5 HET VERWIJDEREN VAN GEGEVEN S UIT EEN 
GEKETENDE LIJST 


Het proces van het verwijderen van gegevens uit een geketende lijst 
is vergelijkbaar met het proces van invoegen. We volstaan hier met 
het geven van een subroutine voor dit proces. 
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C VERWIJDEREN VAN EEN GEGEVEN UIT EEN GEKETENDE LIJST 


SUBROUTINE DELETE (GGEVEN) 
` CHARACTER#10 GGEVEN 
COMMON /LIJST1/ DATA 
CHARACTER#10 DATA(30) 
COMMON /LIJST2/ LINK, ANKER, ANKER2, NUL 
INTEGER LINK(30) , ANKERI, ANKERZ, ‘NUL 
INTEGER VORIGE, OUD 


C ZOEK TE VERWIJDEREN GEGEVEN 


OUD = ANKERI 
S IF (DATA(OUD) .EG. GGEVEN) GOTO 10 
VORIGE = OUD 
OUD = LINK(OUD) 


GOTO 5 
10 CONTINUE 
C VERWIJDER GEGEVEN UIT LIJST 
IF (ANKER1i .EG. OUD) THEN 
ANKER1 = LINK(OUD) 
ELSE 
LINK(VORIGE) = LINK(OUD) 
ENDIF 
C VOEG VRIJGEKOMEN LOKATIE TOE AAN TWEEDE KETEN 


LINK(OUD) = ANKER2 
ANKER2 = OUD 


RETURN 
END 


Alvorens van deze -en de voorgaande- subroutines gebruik te maken 
dient NUL de waarde 0 te hebben, ANKERI de waarde NUL, 

ANKER2 de waarde 1, LINK(I) de waarde I+1 voor I = 1,2,3,..., 29 
en LINK(30) = NUL. 


16.6 STAPELS 


Hierboven hebben we laten zien hoe gegevens in een geketende lijst 
kunnen worden ingevoegd en verwijderd, Het invoegen en verwijde- 
ren kon op willekeurige plaatsen in de lijst plaatsvinden. Zodra 
veranderingen in de gegevenslijst optraden, werd een tweede adres- 
lijst van vrije geheugenlokaties aangepast. Een verwijdering uit de 
gegevenslijst resulteerde in een uitbreiding van vrije geheugenloka- 
ties; een toevoeging aan de gegevenslijst resulteerde in het inkrim- 
pen van de lijst met vrije geheugenlokaties, Het bijhouden van laatst- 
genoemde lijst was betrekkelijk eenvoudig, omdat toevoegingen of 
verwijderingen steeds aan het begin van die lijst plaatsvonden. Een 
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lijst waarbij toevoegingen of verwijderingen slechts aan het begin 
van de lijst kunnen plaatsvinden noemen we een stapellijst of kortweg 
stapel (Engels: stack). 


Bij stapels worden gegevens altijd verwerkt volgens het principe 
‘laatst erop, eerst eraf! (Engels: last in first out, veelal afgekort 
tot LIFO). De 'bovenkant' van de stapel wordt bijgehouden door een 
variabele die als wijzer (Engels: pointer) functioneert. Deze wijzer 
wordt meestal TOP of TOS (= top of stack) genoemd. Voor het ver- 
wijderen van gegevens van een stapel gebruikt men de term pop; voor 
het toevoegen aan de stack wordt de term push gebruikt. Beide ter- 
men zijn ontleend aan de idee van ‘verende! stapels borden en dien- 
bladen in cafetaria's en dergelijke. Door het toevoegen aan zo'n sta- 
pel worden de oorspronkelijke elementen van die stapel naar beneden 
gedrukt (push), en komt het laatsttoegevoegde element het eerst aan 
bod. Bij het wegnemen van het bovenste element 'wipt' het volgende 
element naar boven (pop). 


Bij de computertechnische realisatie van een stapel kunnen we vol- 
staan met een gewone ééndimensionale array; het gebruik van geke- 
tende lijsten kunnen we achterwege laten omdat mutaties slechts aan 
één kant van de stapel optreden. Noemen we zo'n array STACK, dan 
zou een stapel van bijvoorbeeld vier rekenkundige tekens er als 
volgt uitzien: 


TOP 4 


STACK(I) 
STACK(2) 
STACK(3) 
STACK(4) 


Bek En 


waarbij de bovenkant van de stapel -element STACK(4)- aangegeven 
wordt door de INTEGER-variabele TOP. Dergelijke stapels worden 
veelal in compilers gebruikt om rekenkundige expressies om te zet- 
ten in machinetaal. Ze worden in FORTRAN-programma's ook 
gebruikt om recursieve bewerkingen te kunnen uitvoeren. 


Alvorens een stapel te creëren, moet de wijzer op nul worden 
gesteld, bijvoorbeeld: 


TOP = 0 
Gegevens kunnen aan de stapel worden toegevoegd door onderstaande 


subroutine aan te roepen. We gaan hierbij uit van een stapel reken- 
kundige tekens zoals hierboven. 


265 


SUBROUTINE PUSH(TEKEN) 
CHARACTER#1 TEKEN 

COMMON /LIFO1/ STACK 
CHARACTER#1 STACK (20) 

COMMON /LIFO2/ TOP 
INTEGER TOP 

TOP = TOP + 1 

STACK(TOP) = TEKEN 

RETURN 

END 


Om het bovenste element van de stapel te verwijderen, kunnen we 
gebruik maken van de volgende subroutine: 


SUBROUTINE POP(TEKEN) 
CHARACTER#1 TEKEN 

COMMON /LIFO1/ STACK 
CHARACTER#1 STACK (20) 

COMMON /LIFO2/ TOP 
INTEGER TOP 

TEKEN = STACK (TOP) 

TOP TUE =| 

RETURN 

END 


In beide gevallen moeten TOP en de array STACK in een COMMON- 
gebied staan dat voor de routines PUSH en POP, alsmede voor het 
programma dat de stapel creëert, toegankelijk is. Stapels kunnen 
overigens ook op andere wijzen dan hierboven worden gerealiseerd. 


16.7 WACHTRIJEN 


Een andere bijzondere vorm van een lijst is de wachtrij of wachtlijst 
(Engels: queue). Toevoegingen vinden hierbij aan het einde, en ver- 
wijderingen aan het begin van de lijst plaats, Doorgaans wordt een 
wijzer bijgehouden om de plaats van het laatste gegeven aan te geven 
-de lijst zou anders bij toevoegingen steeds moeten worden onder- 
zocht om deze plaats te bepalen. 


Bij wachtrijen worden gegevens verwerkt volgens het principe 

‘eerst erin, eerst eruit' oftewel 'die het eerst komt, het eerst 
maalt'. In het Engels spreekt men van 'first in, first out' (afgekort 
FIFO) of 'first come, first served! (FCFS). Een alledaags voorbeeld 
hiervan is het (netjes) in de rij wachten voor een toegangsbewijs 
aan een loket. 
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De programmatechnische realisatie van een wachtrij is moeilijker 
dan die van een stapel. De lijst groeit immers steeds aan het ene 
uiteinde, en krimpt aan het andere uiteinde in. Bij het gebruik van 
een array, beginnen we bij het bereiken van de bovengrens van de 
array weer aan het begin. Daartoe moeten twee wijzers worden bij- 
gehouden: één om het begin- en één om het eindpunt van de wachtrij 
vast te leggen. 


In het volgende voorbeeld gaan we uit van een wachtlijst van vijf per- 
sonen die voor een loket op hun beurt wachten, We stellen de rij voor 
als een array van maximaal acht elementen, waarbij het zesde 'ele- 
ment' -JANTJE- aan de beurt is. 


BEGIN = 6 
EINDE = 2 

QUEUE(1) PIETJE 
QUEUE (2) KLAASJE 
QUEUE (3) h 
QUEUE(4) J 
QUEUE(5) i 
QUEUE(6) JANTJE 
QUEUE(7) MIENTJE 
QUEUE (8) SIENTJE 


Met behulp van de volgende subroutines kunnen we gegevens in deze 
lijst opnemen en verwijderen, Alvorens de subroutines te gebruiken 
dient de wachtrij in de toestand 'leeg' te worden geïnitialiseerd door 
BEGIN op de waarde 1, en EINDE op de waarde 8 in te stellen. 


SUBROUTINE OPNEEM (NAAM) 
CHARACTER#10 NAAM 

COMMON /FIFO1/ QUEUE 
CHARACTER#10 QUEUE (8) 

COMMON /FIFO2/ BEGIN, EINDE 
INTEGER BEGIN, EINDE 

EINDE = EINDE + 1 

IF (EINDE .GT. 8) EINDE = 1 

QUEUE(EINDE) = NAAM 

RETURN 

END 
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SUBROUTINE VERWYD (NAAM) 
CHARACTER#10 NAAM 

COMMON /FIFO1/ QUEUE 
CHARACTER#10 QUEUE (8) 

COMMON /FIFO2/ BEGIN, EINDE 
INTEGER BEGIN, EINDE 

NAAM = QGUEUE(BEGIN) 

BEGIN = BEGIN + 1 

IF (BEGIN .GT. 8) BEGIN = 1 

RETURN 

END 


Wachtrijen kunnen zowel met behulp van geketende lijsten als enkele 
arrays worden gerealiseerd, Ze worden onder andere toegepast in 
bedrijfssystemen (een pakket programma's dat bij de interne bestu- 
ring van een computer wordt gebruikt) en bij de simulatie van zoge- 
naamde wachtrijproblemen. 


16.8 BOOMSTRUCTUREN 


Een geketende lijst is weliswaar een efficiënte techniek om een lijst 
op te slaan die in de tijd verandert, maar in het algemeen kunnen 
gegevens niet op efficiënte wijze worden teruggevonden, In hoofdstuk 
13 zagen we reeds, dat voor lange lijsten halveringszoekprocessen 
efficiënter zijn dan lineaire. Helaas is de halveringszoekmethode 
bij geketende lijsten niet uitvoerbaar -we kunnen niet anders dan 
bij het anker beginnen en de keten stap voor stap volgen om een gege- 
ven plaats te bereiken. Het middelpunt van de lijst is niet direct 
toegankelijk. Om deze reden maakt men gebruik van een meer 
gecompliceerde gegevensstructuur: de boomstructuur. Door nu een 
binaire boomstructuur te kiezen kunnen we wél de vruchten plukken 
van de halveringszoekmethode. 


Nogmaals: het halveringszoekproces 


Om de binaire boomstructuur te illustreren, grijpen we terug naar 
onze lijst met huisdieren: 
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CAVIA 
GOUDVIS 


SCHILDPAD 


Een halveringszoekproces dient in het midden van de lijst te begin- 
nen. We hebben de lijst uitgebreid met een extra gegeven om een 
middelste element (KAT) te verkrijgen. Als we nu het gegeven 
CAVIA zoeken, zien we dat 'CAVIA', LT. 'KAT'. Bij de volgende 
stap laten we het gedeelte van de lijst vanaf KAT buiten beschouwing 
en halveren het eerste gedeelte, Het middelpunt wordt dan het gege- 
ven GOUDVIS, Aangezien 'CAVIA'. LT. 'GOUDVIS' elimineren we 
vervolgens de laatste helft van de gereduceerde lijst. De resulteren- 
de 'lijst' bevat dan slechts één gegeven: het gezochte element CAVIA, 


De opbouw van de boom 


De binaire boomstructuur die een halveringszoekproces mogelijk 
maakt, ziet er als volgt uit: 


nn GOUDVIS H Re PARKIET Ke 
SCHILD- 
CAVIA MUIS PAD 


Fig. 16-3 


Elk onderdeel van de boomstructuur is driedelig: het bestaat uit het 
gegeven zelf, en twee schakels, Het gegeven KAT neemt in de boom 
een bijzondere plaats in, die we wortel (Engels: root) noemen. 

Vanaf de wortel gaat een tak naar links (GOUDVIS) en een tak naar 
rechts (PARKIET). In zekere zin zijn deze gegevens op hun beurt 
ook wortel van een kleinere boom. We spreken van een linker sub- 
boom (waarvan GOUDVIS de wortel is) en een rechter subboom 
(waarvan PARKIET de wortel is). De gegevens CAVIA, HOND, 
MUIS en SCHILDPAD bevinden zich aan de uiteinden van de takken, 
en worden daarom bladeren (Engels: leaf) genoemd. Alle gegevens- 


269 


elementen stellen een knooppunt (Engels: node) van de boom voor: 
KAT is een wortelknooppunt, en CAVIA, bijvoorbeeld, een blad- 
knooppunt. Dat de boom visueel als een ‘omgekeerde! boom is weer- 
gegeven doet aan dit betoog uiteraard niets toe of af. 


Het zoekproces 


Om de plaats van een gegeven te vinden, vergelijken we het element 
in het wortelknooppunt met het gezochte element. Als deze elemen- 
ten gelijk zijn, behoeven we niet verder te zoeken: het gezochte ele- 
ment hebben we dan te pakken. Is de wortel groter, dan gaan we via 
de linkerschakel naar het volgende gegeven; is de wortel kleiner, 
dan volgen we de rechterschakel, In beide gevallen belanden we aan 
de wortel van een kleinere boom, met slechts de helft van het aantal 
gegevens van de ‘hogere! boom. Dit proces wordt steeds herhaald, 
totdat het gezochte element gevonden is, 


Programmatechnische realisatie 


De binaire boomstructuur kan men in een FORTRAN-programma 
met behulp van drie arrays realiseren: één voor de gegevens zelf, 
één voor de linker- en één voor de rechterschakels. Ter illustratie 
gaan we hier uit van bovenstaand voorbeeld, We kiezen als arrays 
DATA, LINKS en RECHTS, en gebruiken een variabele WORTEL 
als schakel naar de wortel van de boom. Om te benadrukken dat de 
eigenlijke volgorde van elementen in de gegevensarray -DATA- er 
niet toe doet, hebben we de array DATA in willekeurige volgorde 
gevuld, Een nul als schakel betekent het einde van een tak (een 
bladknooppunt) . 


WORTEL = 4 
ethant DATA LINKS — RECHES 

1 MUIS 0 0 

2 SCHILDPAD 0 0 

3 GOUDVIS 6 7 

4 KAT 3 5 

5 PARKIET 1 2 

6 CAVIA 0 0 

7 HOND 0 0 


De waarde van WORTEL verwijst hierbij naar KAT als de wortel van 
de boom. De linkerschakel behorende bij KAT -het arrayelement 
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LINKS(3)- verwijst naar DATA(3), dus GOUDVIS, als wortel van de 
linker subboom. Evenzo verwijst RECHTS(3) naar DATA(5) -dus 
PARKIET- als wortel van de rechter subboom. Op dezelfde manier 
vinden de verwijzingen naar de andere knooppunten plaats. 


De boom is dus een hiërarchische gegevensstructuur, dat wil zeggen 
een structuur waarbij de gegevens op verschillende niveaus zijn 
ondergebracht. Bij het zoeken naar een gegeven voert elke vergelij- 
king ons een niveau 'dieper' in de boom. 


16.9 HET TOEVOEGEN VAN GEGEVENS AAN EEN BOOM 


Om een gegeven aan de boomstructuur toe te voegen, voeren we van- 
uit de wortel een zoekproces naar dat element uit. Als het gegeven 
nog niet in de structuur voorkomt, eindigt het zoekproces op een 
schakel die de waarde nul heeft. Op deze plaats hoort het toe te voe- 
gen element thuis. 


Stel dat we het gegeven MARMOT aan de boom willen toevoegen. Via 
KAT en GOUDVIS komen we terecht bij het gegeven HOND, met twee 
nulschakels. Aangezien 'MARMOT', LT. 'MUIS' moeten we de linker- 
schakel van MUIS laten verwijzen naar het nieuwe gegeven MARMOT. 
In termen van de 'boom'-arrays gesproken, moeten we nu aan 
LINKS(I) de waarde 8 toekennen, aangenomen dat MARMOT in 
DATA(8) opgeborgen wordt. LINKS(8) en RECHTS(8) krijgen beide de 
waarde nul. Het arrayschema wordt dus: 


WORTEL = 4 
element DATA LINKS RECHTS 
l MUIS 8 0 
2 SCHILDPAD 0 0 
3 GOUDVIS 6 7 
4 KAT 3 5 
5 PARKIET 1 2 
6 CAVIA 0 0 
ji HOND 0 0 
8 MARMOT 0 0 


De efficiëntie van het zoekproces hangt af van een evenwichtige boom- 
structuur. De structuur wordt echter onevenwichtiger naarmate we 
meer gegevens aan de boom toevoegen: de boom groeit dus scheef. 
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Dit was al enigszins te zien in bovengenoemd voorbeeld -we begon- 
nen met een uitgebalanceerde boomstructuur, en door toevoeging van 
één element raakte de structuur uit balans. Als de boom vanaf het 
begin opgebouwd wordt volgens de hier behandelde methode, is een 
evenwichtige opbouw onwaarschijnlijk. 


16.10 HET VERWIJDEREN VAN GEGEVENS UIT EEN BOOM 


Het verwijderen van een gegeven uit een boom is moeilijker dan het 
toevoegen. Weliswaar wordt dezelfde methode gebruikt om de plaats 
van het te verwijderen element te bepalen, maar dan beginnen de 
moeilijkheden pas goed. Het probleem valt mee als beide schakels 
van het te verwijderen element nul zijn, dat wil zeggen als het des- 
betreffende element een bladknooppunt is. In dit geval kunnen we 
volstaan met de wijzer naar dit element op nul te stellen. Ook als 
één van beide schakels nul is, valt het probleem mee. Dit geval is 
vergelijkbaar met een geketende lijst, en het verwijderen vindt plaats 
op analoge wijze: we ‘passeren! het element door eenvoudig de scha- 
kel die ernaar verwijst aan te passen (zie figuur 16-4): 


a 
, 
a 
ta 
ta 
a 
a 
o 
e 


te verwijderen 
element 


Fig. 16-4 


Zijn geen van beide schakels van het te verwijderen element nul, dan 
moet een ander element naar de vrijkomende positie worden overge- 
plaatst. Als we in onze oorspronkelijke boom het gegeven KAT moe- 
ten verwijderen, moet het worden vervangen door een element dat 
groter is dan alle andere elementen van de linker subboom of door 
een element dat kleiner is dan alle andere elementen van de rechter 
subboom. Hiervoor komen slechts de elementen HOND en MUIS in 
aanmerking. Het te verplaatsen element moet daarbij eerst uit zijn 
oorspronkelijke positie worden verwijderd. Een en ander wordt 
steeds bereikt door de nodige wijzers aan te passen -de plaats van 
de gegevens in de DATA-array verandert niet. 
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16.11 HET AFDRUKKEN VAN EEN BOOM (RECURSIVITEIT) 


In deze paragraaf zullen we laten zien hoe de inhoud van een boom in 
alfabetische volgorde kan worden afgedrukt. We beginnen met een 
grof algoritme: 


druk inhoud boom 
af in alfabetische 


volgorde 
druk de linker druk de wortel druk de rechter 
subboom af af subboom af 


Het algoritme bestaat uit drie delen. Het middendeel -druk de wor- 
tel af- is eenvoudig. De beide andere delen zijn echter een weer- 
spiegeling van het oorspronkelijke probleem: druk de inhoud van een 
boom af. We hebben de oplossing dus eigenlijk gedefinieerd in ter- 
men van het oorspronkelijke probleem. Men spreekt hierbij van het 
recursief definiëren van de oplossing. 


Recursiviteit 


Op het eerste gezicht lijkt een recursieve oplossingsdefinitie weinig 
zinvol: we schijnen als het ware in een kringetje rond te draaien. We 
moeten echter wel bedenken dat de boom waarvan in tweede instantie 
sprake is, een kleinere boom is dan in de beginsituatie. Werken we 
bijvoorbeeld de linkertak van de oplossing verder uit, dan ontstaat 
een nog kleinere boom: de linker subboom van de linker subboom. 
Schematisch kunnen we dit als volgt weergeven: 


druk de linker 
subboom af 


druk de linker druk de wortel druk de rechter 
subboom van de van de linker subboom van de 
linker subboom subboom af linker subboom 


af af 
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Zo kunnen we doorgaan tot uiteindelijk een bladknooppunt wordt 
bereikt. In dat stadium is er geen sprake meer van een subboom, en 
valt er niets meer af te drukken. Dit is het algemene beeld bij 
recursieve algoritmen. In programmeertermen gesproken roept het 
algoritme zichzelf steeds weer aan, elke keer voor een gereduceerde 
hoeveelheid werk, totdat het probleem is opgelost. 


Een FORTRAN”’ oplossing’ 


In tegenstelling tot sommige talen -zoals bijvoorbeeld PL/I- mag 
een FORTRAN-subroutinel zichzelf niet aanroepen. Bovenstaand 
algoritme is dan ook niet eenvoudig om te zetten in een 'echt' 
FORTRAN-programma. Ter illustratie van het recursiviteitsmecha- 
nisme gaan we echter voorlopig aan het verbod op recursieve aan- 
roepen voorbij. We gaan verder uit van de variabele WORTEL, en 
de arrays DATA, LINKS en RECHTS, zoals die in eerdere paragra- 
fen reeds zijn gebruikt. In principe zou de 'oplossing' er dan als 
volgt kunnen uitzien: 


EEN RECURSIEVE METHODE VOOR HET AFDRUKKEN VAN 
EEN BOOM IN ALFABETISCHE VOLGORDE 


###DIT PROGRAMMA MAAKT GEBRUIK VAN EEN 
ILLEGALE RECURSIEVE AANROEP### 


on ON 


SUBROUTINE DRUKAF (WORTEL ) 
INTEGER WORTEL 
COMMON /BOOM1/ DATA 
CHARACTER#10 DATA(30) 
COMMON /BOOM2/ LINKS, RECHTS, NUL 
INTEGER LINKS(30), RECHTS(30), NUL 
IF (LINKS(WORTEL) .NE. NUL) THEN 
CALL DRUKAF(LINKS(WORTEL )) 
ENDIF 
PRINT #, DATA(WORTEL) 
IF (RECHTS(WORTEL) ‚NE. NUL) THEN 
CALL DRUKAF (RECHTS (WORTEL) ) 
ENDIF 
RETURN 
END 


Merk op dat WORTEL élke keer dat de subroutine voor een nieuwe 
subboom wordt aangeroepen naar een ander knooppunt verwijst. 


In PL/I spreekt men van een procedure in plaats van een subroutine. 
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Praktische realisatie van recursiviteit 


Iedere keer dat een programma zichzelf aanroept, dient men bij te 
houden op welk punt in het programma die aanroep plaatsvond, zodat 
het executieproces waarmee de computer onmiddellijk vóór die aan- 
roep bezig was, op de juiste plaats kan worden hervat. Hiertoe moet 
een stapellijst, opgebouwd uit deze terugkeerpunten, worden bijge- 
houden, Elke nieuwe recursieve aanroep resulteert in een toevoeging 
van zo'n terugkeerpunt aan de stapel. De weg terug wordt steeds 
bepaald aan de hand van het laatst toegevoegde terugkeerpunt. Bij 
talen zoals PL/I en ALGOL, waar recursiviteit is toegestaan, wordt 
het een en ander automatisch door de compiler geregeld. In FOR- 
TRAN moeten we dit echter zelf regelen. Bij opgave 2 van dit hoofd- 
stuk komt een algoritme hiervoor ter sprake. 


16.12 SAMENVATTING 


In dit hoofdstuk is de opbouw van gegevensstructuren met behulp van 
arrays behandeld. Hierbij werd veelvuldig gebruik gemaakt van 
ketenadressen (schakels) om de gegevens te ordenen. De schakel 
van een element geeft dan steeds de arrayindex aan van het volgende 
element van de verzameling. In dit hoofdstuk kwamen onder andere 
de volgende kernbegrippen ter sprake. 


geketende lijst: Een aaneenschakeling van gegevens 
door middel van een aan elk gegeven 
verbonden ketenadres. Dit adres geeft 
aan waar het volgende element van de 
lijst zich bevindt. De fysieke volgorde 
van de gegevens -bepaald door hun 
positie in een array- verschilt van de 
logische volgorde. Deze wordt door de 
ketenadressen -op zich ook onderge- 
bracht in een array- bepaald. 


invoegen in een Het toevoegen van een gegeven aan de 

geketende lijst: lijst -zonder de fysieke volgorde van 
bestaande gegevens te veranderen- 
door aanpassing van de ketenadressen. 


verwijderen uit een Het verwijderen van een gegeven uit de 

geketende lijst: lijst -zonder de fysieke volgorde van 
overige gegevens te veranderen- door 
aanpassing van de ketenadressen. 
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stapellijst: Een gegevensstructuur waarbij gege- 
vens vanaf een kant worden toegevoegd 
('push') en vanaf dezelfde kant worden 
verwijderd ('pop'). Bij een stapellijst 
wordt geen gebruik gemaakt van keten- 
adressen. Gegevens worden verwerkt 
volgens het principe 'laatst erop, eerst 
eraf' (LIFO: last in, first out). 


wachtrij: Een gegevensstructuur waarbij gege- 
vens vanaf een kant worden toegevoegd 
en vanaf de andere kant worden verwij- 
derd. Gegevens worden verwerkt vol- 
gens het principe 'die het eerst komt, 
het eerst maalt' (FIFO: first in, first 
out). 


binaire boom: Een gegevensstructuur waarbij aan elk 
element of knooppunt twee schakels 
(een 'linker'- en een 'rechter'-schakel) 
verbonden zijn. Elke schakel verwijst 
naar een ander knooppunt, met een bij- 
behorende subboom. Er is één uniek 
beginknooppunt: de wortel. Als beide 
schakels van een bepaald knooppunt nul 
zijn, spreekt men van een bladknoop- 


punt. 


16.13 OPGAVEN 


1. Teneinde het overstelpende passagiersaanbod het hoofd te kunnen 
bieden, heeft de directie van een luchtvaartmaatschappij besloten 
haar reserveringssysteem te automatiseren. Er bestaan maar 
liefst vier lijnvluchten met de volgende zitplaatscapaciteiten: 


vluchtnr. 1 : 5 zitplaatsen 
vluchtnr. 2 : 5 zitplaatsen 
vluchtnr. 3 : 8 zitplaatsen 
vluchtnr. 4 : 4 zitplaatsen 


De reserveringsgegevens dienen in een geketende lijst te worden 
ondergebracht. Een momentopname tijdens de reserveringspe- 
riode zou het volgende beeld te zien kunnen geven: 
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VLUCHTNR. 1 [5To) 

VLUCHTNR. 2 [2 [+> HAMACHER |e FARKAS |> MCNAUGHTON JO 
VLUCHTNR. 3 [6 [> BouLTon |+ LEHMAN 10 

VLUCHTNR. 4 oleme [4m [4s | VRANESIC jo 


In dit diagram geeft het eerste element voor elke vlucht het aan- 
tal (nog) vrije zitplaatsen. Elk volgend blokje bevat de naam van 
een passagier, en verder òf een verwijzing naar een volgend ele- 
ment, òf een nul om het einde van de geketende lijst aan te geven. 


Om een dergelijk geketend systeem op te zetten zijn vier ééndi- 
mensionale arrays nodig. De eerste array bevat het aantal vrije 
zitplaatsen. De tweede array geeft de plaats aan van de eerste 
passagier voor elke vlucht. De derde array -NAAM genoemd- 
bevat de namen van alle passagiers. Aangezien de totale passa- 
gierscapaciteit 22 bedraagt, zal NAAM 22 elementen groot moe- 
ten zijn. De vierde array -LINK genoemd- geeft de positie aan 
van eventuele volgende passagiers, 


Alvorens de arrays met boekingsgegevens te vullen, dienen de 
vrije lokaties aaneengeschakeld te worden. De array LINK wordt 
daarom zo geïnitialiseerd dat elk element LINK(J) de waarde J+1 
bevat, met uitzondering van het element LINK (22), dat de waarde 
nul bevat om het einde van de lijst aan te geven. 


Een variabele VRIJ geeft de plaats aan van het eerste element 
van de keten van beschikbare lokaties. Voor bovengenoemd voor- 
beeld heeft VRIJ de waarde 10. De arrays NAAM en LINK zouden 
de volgende woorden kunnen hebben: 


NAAM(1) HAMACHER NAAM(5) LEHMAN NAAM(9) VRANESIC 
LINK(1) 6 LINK(5) 0 LINK(9) 0 
NAAM(2) BOULTON NAAM(6) FARKAS NAAM(10) 

LINK(2) 5 LINK(6) 7 LINK(10) 11 
NAAM(3) HAM NAAM(7) MCNAUGHTON 

LINK(3) 8 LINK() 0 

NAAM(4) HEHNER NAAM(8) WILSON NAAM(22) 


LINK) 3 LINK(8) 9 LINK(22) 0 
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Het reserveringssysteem dient vier typen transacties te accepte- 
ren, aangegeven door een transactierecord. 


- Type 1 is een reserveringsaanvraag. Het transactierecord bevat 
het codewoord RES, de naam van de passagier, en het vlucht- 
nummer. 


- Type 2 is een annuleringsopdracht. Het transactierecord bevat 
het codewoord ANL, de naam van de passagier, en het vlucht- 
nummer 


- Type 3 is een opdracht voor het afdrukken van het aantal vrije 
zitplaatsen voor een nader te specificeren vlucht. Het transactie- 
record bevat het codewoord ZITPL en een vluchtnummer. 


- Type 4 is een opdracht om de passagierslijst voor een gegeven 
vlucht af te drukken. Het transactierecord bevat het codewoord 
LIJST en een vluchtnummer. 


Elk type transactie dient door middel van een subroutine afgehan- 
deld te worden. De specificaties van deze subroutines zijn als 
volgt: 


- BOEKEN(WIE, NUMMER), Voegt passagier WIE toe aan vlucht 
NUMMER. Is de vlucht volgeboekt, dan drukt de subroutine 
een boodschap van die strekking af. Subroutine BOEKEN maakt 
gebruik van een lokatie in de array NAAM, en moet de variabe- 
le VRIJ bijwerken. 


- ANNUL(WIE, NUMMER). Annuleert de reservering op naam 
van WIE op vlucht NUMMER, De lokatie in NAAM wordt weer 
toegevoegd aan de lijst van vrije lokaties. VRIJ moet worden 
aangepast. 


- INFO(NUMMER). Drukt het aantal vrije zitplaatsen af voor 
vlucht NUMMER. 


- LIJST(NUMMER), Drukt een passagierslijst af voor vlucht 
NUMMER, 


De verschillende typen transactierecords dienen in willekeurige 
volgorde aangeboden te worden om zo een echt reserveringssysteem 
zoveel mogelijk te simuleren. Beveilig het systeem zoveel moge- 
lijk tegen bedoeld of onbedoeld misbruik. Ga er bijvoorbeeld niet 
van uit dat er bij een annulering inderdaad een overeenkomstige 
reservering aanwezig is. Om naast de passagiers ook het systeem 
‘van de grond' te krijgen dienen uiteraard eerst de nodige reser- 
veringen te zijn gemaakt. 
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Schrijf en test elk programma als een afzonderlijk hoofdprogram- 
ma, alvorens de subroutines samen te voegen. Schrijf LIJST 
eerst, en roep dit programma vanuit BOEKEN en ANNUL aan bij 
het uittesten. 


Aanbevolen wordt deze opgave in een groepje van twee personen 
te maken. In dit geval dient één persoon de subroutines BOEKEN 
en LIJST te programmeren, en de ander de subroutines ANNUL 
en INFO, 


Bied het totale programma verschillende keren ter verwerking 
aan -met steeds andere gegevens- om de mogelijkheden van het 
systeem te demonstreren. Test niet slechts de voor de hand lig- 
gende situaties uit, maar houd ook rekening met ongewone 
omstandigheden, 


2, In dit hoofdstuk kwam een ‘subroutine! voor het in alfabetische 
volgorde afdrukken van een boom ter sprake. De gegeven pro- 
grammaconstructie is echter illegaal in FORTRAN, vanwege de 
recursieve aanroep die daarin voorkomt. Schrijf een niet- 
recursieve FORTRAN-subroutine, gebaseerd op het volgende 
algoritme. Het algoritme maakt gebruik van een stapellijst. 


a. Initialiseer de stapel in de stand 'leeg', en stel de index N 
-gebruikt om knooppunten aan te geven- zo in dat het naar de 
wortel van de boom verwijst. 

b. Herhaal stappen c t/m f zolang de stapel niet leeg is, of N on- 
gelijk is aan nul; stop indien niet meer aan deze voorwaarden 
wordt voldaan. 

c. Voeg N steeds aan de stapel toe, waarbij N telkens de linker 
schakel (LINKS(N)) is van de voorgaande waarde, totdat N nul 
is, 

d. 'Pop' de stapel, en bewaar de waarde die van de stapel ver- 
wijderd wordt als N. | 

e. Druk het gegeven af dat in het knooppunt N is opgeslagen. 

f. StelN in als de rechter schakel (RECHTS(N)) van zijn vorige 
waarde, 


Test de subroutine en verklaar de werking ervan. 


17 TECHNISCH-WETENSCHAPPELIJKE 
BEREKENINGEN 


De meeste toepassingen die we tot nu toe hebben besproken hadden 
betrekking op het gebruik van computers in de administratieve sfeer. 
Kenmerkend voor deze toepassingen is dat, hoewel het uit te voeren 
rekenwerk zelf in het algemeen relatief eenvoudig is, juist de hoeveel- 
heid rekenwerk het gebruik van een computer nodig maakt. Een enkele 
loonberekening, bijvoorbeeld, is gemakkelijk met de hand uit te voe- 
ren, maar wanneer een bedrijf duizenden werknemers heeft, wordt het 
interessant, zo niet noodzakelijk, hiervoor een computer te gebruiken. 


Computers werden oorspronkelijk ontwikkeld met het oog op technisch- 
wetenschappelijk rekenwerk, Een kenmerk hiervan is dat het uit te 
voeren rekenwerk in het algemeen betrekkelijk intensief is, terwijl de 
hoeveelheid te verwerken gegevens gering is. Technisch-wetenschap- 
pelijke berekeningen kunnen zelfs zo gecompliceerd zijn, dat ze met 
de hand praktisch onuitvoerbaar zijn. In dit hoofdstuk gaan we op dit 
soort toepassingen (globaal) in, en komt de nauwkeurigheid waarmee 
berekeningen kunnen worden uitgevoerd ter sprake. 


17.1 HET EVALUEREN VAN FORMULES 


Natuurkundige verschijnselen, fysische systemen enzovoort, tracht 

men in het algemeen te beschrijven met behulp van wetten. Deze wet- 
ten resulteren veelal in algebraïsche vergelijkingen en formules, die 

voor een gegeven situatie uitgerekend -geëvalueerd- moeten worden 
om bruikbare informatie te geven. 


Een voorbeeld 


Als illustratie hiervan gaan we uit van een object in vrije val, bijvoor- 
beeld losgelaten vanuit een vliegtuig. Een formule waarmee men de 
weg S die dit object na een tijd van t seconden aflegt kan berekenen 
luidt: 


Ss. ot” 


Hierin is de constante 4.9 de helft van de versnelling veroorzaakt door 
de zwaartekracht. Het volgende programma berekent de afgelegde weg 
na elke seconde gedurende de eerste 10 seconden van de vrije val: 


C TABEL AFDRUKKEN AFGELEGDE WEG TEGEN TIJD 


REAL METERS, TIJD 
INTEGER I 
TIJD = 0.0 


C DRUK TABELKOP AF 


PRINT #, ’ TIJD AFSTAND ’ 
DO 10 I = 1, 10 
TIJD s TIJD + 1.0 
METERS = 4.9 # TIJD # TIJD 
PRINT #, TIJD, METERS 
10 CONTINUE 


STOP 
END 


De uitvoer van dit programma is: 


TIJD AFSTAND 
1. 000000 4.900000 
2.000000 19.60000 
3.000000 44.10000 
4.000000 78.40000 
5.000000 122.5000 
6.000000 176.4000 
7.000000 240.1000 
8.000000 313.6000 
9.000000 396.9000 
10.00000 490.0000 
Nauwkeurigheid 


Hoewel bovenstaande resultaten met zeven cijfers in het mantissedeel 
zijn afgedrukt, betekent dit allerminst dat die cijfers dan ook alle 
zinvol of -zoals men doorgaans zegt- significant zijn. De berekenin- 
gen zijn, zoals gebruikelijk bij technisch-wetenschappelijk rekenwerk, 
uitgevoerd met behulp van REAL-constanten en -variabelen, en hebben 
meestal hooguit een nauwkeurigheid van 7 cijfers. Deze beperktheid 
alleen al leidt tot afrondingsfouten en verlies van significante cijfers. 
Later in dit hoofdstuk zullen we op dit aspect nader ingaan. 
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Afgezien van deze interne precisieproblematiek, speelt ook de nauw- 
keurigheid van de basisgegevens een rol. In de formule voor de afge- 
legde weg zijn we bij het programma uitgegaan van de constante 4. 9 
met twee significante cijfers, en een variabele TIJD met slechts 

één significant cijfer. Dit betekent dat ongeveer twee cijfers van het 
resultaat significant zijn. 


Beide aspecten leiden tot een numerieke fout, dat wil zeggen een 
fout die -althans in eerste instantie- niet aan de programmeur te 
wijten is, maar aan de gegevens waarmee men werkt en de wijze 
waarop die intern worden voorgesteld. 


Numerieke waarden worden zonodig met een expliciete vermelding 
van de mogelijke fout aangegeven, bijvoorbeeld: 


19.25 + 0. 05 


Dit betekent dat het getal niet exact 19.25 is, maar een waarde tus- 
sen 19.20 en 19. 30 heeft. Bij een grotere (absolute) fout, bijvoor- 
beeld 0.5 in plaats van 0. 05, zou de getalwaarde kunnen variëren 
van 18, 75 tot 19. 75, In dit geval zou het vierde cijfer van het getal 
zeker niet significant zijn; men zou het getal dan noteren als: 


19.2 +0.5 


of, door eerst af te ronden in plaats van het niet-significante cijfer 
af te kappen: 


19,3 £0,5 


Bij het uitvoeren van numerieke berekeningen dient men zich bewust 
te zijn van het feit dat voor elk (REAL) resultaat een bepaalde fout- 
marge geldt, | 


17.2 STANDAARDFUNCTIES 


In tegenstelling tot administratieve toepassingen, maakt men bij 
technisch-wetenschappelijke berekeningen veelvuldig gebruik van 
wiskundige functies, Voor vele van deze functies zijn reeds subpro- 
gramma's geschreven, en in de computer ingebouwd. Men spreekt 
daarbij van ingebouwde (Engels: built-in) of standaardfuncties. 


Stel dat we in plaats van de berekening van de afgelegde weg in 
bovenstaand voorbeeld geinteresseerd waren in de tijd waarop het 
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vallende object bepaalde afstanden aflegt. Om -gegeven de 
afstand- de tijd te berekenen, herschrijven we de gebruikte formule 


als volgt: 
t = Vs/4.9 


In dit geval moeten we een vierkantswortel uitrekenen. Hiertoe kun- 
nen we gebruik maken van de standaardfunctie SQRT (afkorting van 
'square root', d.i. vierkantswortel). In het programma schrijven 
we dan: 


TIJD = SQRT(METERS/4. 9) 


Andere standaardfuncties kunnen betrekking hebben op goniometrische 
bewerkingen, bijvoorbeeld SIN en COS, die de sinus respectievelijk 
cosinus van een hoek in radialen geven. ATAN(X) levert de hoek (in 
radialen) waarvan de tangens X is. In appendix 1 is een lijst met 
functies opgenomen. 


17.3 HET MAKEN VAN EEN GRAFIEK 


Vaak krijgt men een beter inzicht in een wiskundige formule door er 
een grafiek van te maken. In het eerste voorbeeld van dit hoofdstuk 
hebben we een functie op vaste intervallen berekend. Deze functie- 
waarden kunnen we gebruiken om met behulp van de regeldrukker 
een grafiek af te drukken; in dit geval van de afgelegde weg als func- 
tie van de tijd. In deze paragraaf zullen we hiervoor een methode 
behandelen; er zijn echter vele andere mogelijkheden. 


Maakt men een grafiek van Y als functie van X, dan kiest men 
meestal voor een horizontale X-as en een verticale Y-as. We gaan 
er van uit dat de waarden van X -de onafhankelijke variabele- gelijk- 
matig toenemen; er is dus steeds sprake van een vast interval. De 
overeenkomstige waarden van Y -de afhankelijke variabele- worden 
verkregen door de waarden van X te substitueren in de functie: 


Y = f(X) 


Bij het gebruik van een regeldrukker worden de regels steeds op 
gelijke afstand van elkaar afgedrukt. We kiezen daarom de regelaf- 
stand als vast interval tussen de X-waarden. Dit betekent dat de X- 
as, in tegenstelling tot het normale gebruik, verticaal is, en de Y- 
as horizontaal. 
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De volgende figuur is een grafiek van de functie: 


VKS KG 2 


waarbij X het waardebereik -2 tot 3 doorloopt. 


GRAFIEK VAN Y ALS FUNCTIE VAN X 
MINIMUM VAN Y =2.240000 
MAXIMUM VAN Y 4. 000000 
-0.20000E+01 

-0.18000E+01 

-0.16000E+01 

-0.14000E+01 

-0.12000E+01 

-0.10000E+01 

-0.80000E+00 # 
-0.60000E+00 # 
-0.40000E+00 *# | 
-0.20000E+00 # 
0.00000E+00 + 
O.20000E+00 # 

O .40000E+00# 

O. 6G0000E+00# 

0.80000E+00 # 

0.10000E+01 & 
0.12000E+01 hd 
0.14000E+01 # 
0.16000E+01 * 
0.18000E+01 *# 
O.Z20000E+01 

0.22000E+01 

0.24000E+01 

0.26000E+01 

0.28000E+01 

0.30000E+01 


mi an rn an an a O 


Fig. 17-1 


In deze grafiek wordt de Y-waarde, die met de X-waarde van een 
bepaalde afdrukregel overeenkomt, met een asterisk aangegeven; de 
asterisk wordt in die positie op de regel afgedrukt, die de Y-waarde 
het beste benadert. We gebruiken 51 kolommen om het functiebereik 
van Y weer te geven. Is de kleinste Y-waarde die afgedrukt moet 
worden YMIN, en de grootste YMAX, dan stellen de 51 posities een 
functiebereik voor van: 


YBRK = YMAX - YMIN 


Om de afdrukpositie te bepalen, berekenen we een INTEGER-waarde 
Y POS aan de hand van: 


YPOS = 50 x(Y - YMIN)/YBRK + 1.5 


De toevoeging van de waarde 1,5 dient om af te ronden tot de dichtst- 
bijzijnde INTEGER-waarde, en om YMIN in de eerste positie te 
plaatsen. We nemen aan dat YBRK niet nul is, zodat we erdoor kun- 
nen delen, 


Elke af te drukken regel wordt opgeslagen in een eendimensionale 
CHARACTER-array met de naam REGEL. Deze array wordt eerst 
gevuld met spaties, Vervolgens treffen we voorzieningen voor het 
afdrukken van de X-as. Hiertoe wordt het element van REGEL dat 
met een nulwaarde van Y overeenkomt met het symbool I gevuld. 
Het programmasegment hiervoor ziet er als volgt uit: 


XAS = 50 # (-YMIN) /YBRK + 1.5 

IF (XAS .GE. 1 .AND. XAS .LE. 51) THEN 
REGEL(XAS) = ‘1? 

ENDIF 


Alvorens de regel af te drukken, plaatsen we een asterisk in positie 
YPOS van de array REGEL. Na het afdrukken van de regel moet de 
asterisk vervangen worden door een spatie. Bevond de asterisk zich 
precies op de X-as, dan moet de X-as opnieuw worden aangegeven 
met de hoofdletter I. Deze bewerkingen worden uitgevoerd door het 
volgende programmafragment: 


REGEL(YPOS) = '#’ 
PRINT 20, X(I), REGEL 
20 FORMAT (’ ‘, E12.5r, 51A1) 
IF (YPOS .EQ. XAS) THEN 
REGEL(YPOS) = ʻI’ 
ELSE 
REGEL(YPOS) = 7 t 
ENDIF 


De Y-as wordt niet afgedrukt. Wel worden de X-waarden die met de 
afgedrukte regels overeenkomen vermeld. 


17.4 EEN SUBROUTINE VOOR HET AFDRUKKEN VAN 
GRAFIEKEN 


In deze paragraaf geven we een volledige subroutine voor het afdruk- 
ken van een grafiek met N paren X- en Y-waarden, die in gelijkna- 
mige ééndimensionale REAL-arrays zijn opgeslagen. De waarden 
van X zijn gelijkmatig verdeeld. De echte namen van de af te beel- 
den variabelen worden doorgegeven via de formele parameters 
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XNAAM en YNAAM, die als CHARACTER-variabelen zijn gedecla- 
reerd. De aanroep van de subroutine zou er als volgt kunnen uitzien 


CALL GRAPH(X, Y, N, XNAAM, YNAAM) 


De waarden YMAX en YMIN worden bepaald door een aanvullende 
subroutine, MINMAX genoemd. 


C 


10 


30 


SUBROUTINE VOOR HET AFDRUKKEN VAN EEN GRAFIEK 


SUBROUTINE GRAPH(X, Y, N, XNAAM, YNAAM) 
INTEGER N 
REAL X(N): Y(N) 
CHARACTER#8 XNAAM, YNAAM 

CHARACTER*1 REGEL (51) 

REAL YMIN, YMAX, YBRK 

INTEGER KOLOM, XAS, YPOS, I 


BEPAAL AF TE BEELDEN BEREIK VAN Y 


CALL MINMAX(Y; N; YMIN, YMAX) 
YBRK = YMAX — YMIN 


VUL REGEL MET SPATIES 


DO 10 KOLOM = 1, 51 
REGEL (KOLOM) = ’ ’ 
CONTINUE 


MARKEER X-AS OP AF TE DRUKKEN REGEL 


XAS = 50 # (-YMIN) / YBRK + 1.5 

IF (XAS .GE. 1 .AND. XAS .LE. 51) THEN 
REGEL (XAS) = ʻI’ 

ENDIF 


DRUK KOP VAN GRAFIEK AF 


PRINT #, ‘GRAFIEK VAN ’, YNAAM, ’ ALS FUNCTIE VAN 
PRINT #, ‘MINIMUM VAN ’, YNAAM, YMIN 
PRINT #, ‘MAXIMUM VAN ’, YNAAM, YMAX 


VOORBEREIDEN EN AFDRUKKEN VAN GRAFIEKREGELS 


DO 30 I = 1, N 
YPOS = 50 # (Y(I) - YMIN) / YBRK + 1.5 
REGEL (YPOS) = ‘4’ 
PRINT 20, X(I),; REGEL 
FORMAT (' ’', E12.5, 5141) 
IF (YPOS .EG. XAS) THEN 
REGEL(YPOS) = ‘1’ 
ELSE 
REGEL(YPOS) = ’ ’ 
ENDIF 
CONTINUE 


RETURN 
END 


’, XNAAM 


c BEPAAL GROOTSTE EN KLEINSTE WAARDE IN ARRAY 


SUBROUTINE MINMAX(GETAL: N: MIN, MAX) 


INTEGER N 
REAL GETAL(N) , MIN, MAX 
INTEGER I 


MIN = GETAL(I) 
MAX = GETAL(I) 
DO 10 I = 2, N 
IF (GETAL(I) „LT. MIN) THEN 
MIN = GETAL(I) 
ENDIF 
IF (GETAL(I) .GT. MAX) THEN 
MAX = GETAL(I) 
ENDIF 
10 CONTINUE 
RETURN 
END 


17.5 HET GEBRUIK VAN DE SUBROUTINE GRAPH 


We geven nu het programma dat gebruikt werd om de functie: 


va kan 


voor het waardebereik X = -2 tot X = 3 af te beelden. We laten X 
oplopen in stappen van 0.2. Er zijn dus in totaal 26 punten waarvoor 
de functiewaarde wordt berekend. 

Het programma is als volgt: 


C MAAK EEN GRAFIEK VAN DE FUNCTIE Y = X##2 -X-2 
REAL X(26); Y(26) 
INTEGER I 

C BEREKEN WAARDEN VOOR X- EN Y-ARRAYS 


DO 10 I = 1, 26 | 
KAI nm Be PE Elk Od 
VI) © X(TINSE = HCI) = 240 
10 CONTINUE 
CALL GRAPH(X:, Y, 26, 'X ATTA i 3 


STOP 
END 


287 


De uitvoer van dit programma is eerder in dit hoofdstuk gegeven. 
Merk op, dat bij het passeren van de X-as de hoofdletter I in de gra- 
fiek wordt vervangen door een asterisk. Dit gebeurt tweemaal, name 
namelijk voor X = 1.0 en X = 2.0. Men noemt de punten X = -1 

en X = 2 de wortels van de vergelijking: 


Red 


Voor deze waarden van X wordt de functie 


Ee xe 


nul. De hier behandelde grafische methode is één methode om de 
wortels van een vergelijking te bepalen. Later in dit hoofdstuk komt 
een numerieke methode hiervoor aan de orde, 


17.6 BENADERING VAN KROMMEN (CURVE-FITTING) 


In de voorgaande paragrafen hebben we gezien hoe een verzameling 
punten, overeenkomende met de X- en Y-waarden van een functie, 
bepaald en gebruikt kunnen worden om een grafische afbeelding van 
die functie te geven, In een wetenschappelijk experiment zouden we 
de waarde van een variabele grootheid Y kunnen meten, terwijl we 
een andere grootheid X systematisch veranderen. De resultaten kun- 
nen dan afgebeeld worden door de Y-waarden tegen de X-waarden uit 
te zetten in een grafiek, Bestaat er een theorie die door middel van 
een formule of vergelijking de waarden van X relateert aan de waar- 
den van Y, dan kan men nagaan in hoeverre de meetresultaten met de 
theoretische formule overeenstemmen. 


Een methode hiervoor zou zijn, de waarde van Y voor elke X aan de 
hand van de formule te berekenen. De gemeten waarden zouden we 
Yexperimenteel, en de berekende waarden Ytneoretisch kunnen noe- 
men. Het verschil tussen twee overeenkomstige waarden: 


Yexerimenteel =_Stheoretisch 


noemen we de afwijking of de deviatie van de experimentele ten 
opzichte van de theoretische waarde. 


Tot nu toe zijn we ervan uitgegaan, dat het berekenen van de juiste 
theoretische waarde die met een experimentele waarde overeenstemt, 
mogelijk is. Dit is het geval als de formule geen andere (onafhanke- 
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lijke) variabelen bevat. Vaak zijn er in de formule echter wel andere 
variabelen aanwezig. Een voorbeeld hiervan is de volgende formule 
voor V, de snelheid van een object op een tijdstip T, gegeven de 
beginsnelheid VBEGIN en de versnelling A: 


V = VBEGIN + AxT 


Meten we de snelheid van een object dat een constante versnelling 
ondergaat, dan zou de relatie tussen V en T als volgt kunnen zijn: 


| 


SNELHEID 


Fig. 17-2 


TIJD — art 


Hoewel de grafiek theoretisch een rechte zou moeten zijn, vertonen 
de experimentele punten een zekere spreiding. We zouden tussen de 
verschillende punten met de hand een zodanige lijn kunnen trekken, 
dat de afwijkingen van de punten ten opzichte van de lijn klein zijn. 
Dit proces kan echter ook met de computer worden uitgevoerd. Hier- 
toe gaan we uit van de kwadraten van de afwijkingen, in plaats van 

de afwijkingen zelf. De afwijkingen kunnen namelijk zowel positief 
als negatief zijn, en daarom zou een optelling, ondanks betrekkelijk 
grote individuele afwijkingen, een kleine waarde kunnen geven; de 
kwadraten van de afwijking zijn daarentegen steeds positief. 


We kiezen als beste benadering een rechte lijn waarvoor de som van 
de kwadraten van de afwijkingen het kleinst is. Men spreekt hierbij 
van de methode van de kleinste kwadraten. Met behulp hiervan kan 
een kromme (in dit geval een rechte lijn) worden bepaald die het 
beste aan de experimentele punten voldoet. Dit wordt ook wel 'curve 
fitting' genoemd. 


De meeste computerinstallaties beschikken over zeer efficiënte 
standaardprogramma's (subroutines) voor curve-fitting door middel 
van de methode van de kleinste kwadraten, en veelal ook over 
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programma's gebaseerd op andere methoden. Men behoeft wat dit 
betreft dus niet opnieuw het wiel -c.q. het programma- uit te vin- 
den. 


Soms is de theoretische kromme onbekend. De experimentele gege- 
vens worden dan gerelateerd aan een wiskundige vergelijking, die zo 
wordt gekozen dat de vorm zoveel mogelijk met de gegevens overeen- 
komt. We spreken dan van een empirische functie, dat wil zeggen 
een functie die gebaseerd is op waarneming. 


17.7 POLYNOOMVERGELIJKINGEN 


De functie 
y= x -x-2 


waarvan in vorige paragrafen sprake was, is in feite een zogenaamde 
veelterm ofwel polynoom in x. De hoogste macht van x was in dit 
voorbeeld 2, en men spreekt daarom van een tweede-graads polynoom. 
In het algemeen kan men een tweede-graads polynoomvergelijking 
„ook wel vierkantsvergelijking genoemd- in de volgende vorm 
schrijven: 


ax” +bx+c=0 
De twee wortels x1 en x2 hiervan zijn te berekenen met behulp van 


de formules: 
-b + Vb? - 4ac 


xl = Da 


en 


-b — Vb? - 4ac 


2a 
Voor deze waarden van x heeft de polynoom de waarde nul. Anders 
gezegd: voor deze punten gaat de grafiek van de polynoom door de 
X-as. 


De waarde: 


Aa - 4ac 
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heet discriminant van de vierkantsvergelijking. Is de discriminant 
negatief, dan zou in de formules voor x1 en x2 de wortel uit een nega- 
tief getal moeten worden getrokken. Dit kan niet -althans niet zonder 
meer- en men spreekt daarom van complexe wortels, In termen van 
de grafische voorstelling gesproken betekent dit, dat de grafiek ner- 
gens de X-as passeert of raakt -de grafiek ligt òf geheel boven, òf 
geheel onder de X-as. 


Een subroutine voor het berekenen van de wortels van een 
vierkantsvergelijking 


De volgende subroutine berekent de wortels van een vierkantsverge- 
lijking: 


C BEREKEN DE WORTELS VAN A#X##2 + B#X + C 


SUBROUTINE WORTEL(A; B, C) 
REAL A; B; C 
REAL DISC: WDISC, X1, X2 
DISC = B##2 — 4.0#A#C 
IF (DISC .GE. 0.0) THEN 
WDISC = SORT(DISC) 
X1 = (-B + WDISC) / (2.0#A) 
XZ = (-B - WDISC) / (2.0#A) 
PRINT #, ‘WORTELS ZIJN’, X1; XZ 
ELSE 
PRINT #, ‘WORTELS ZIJN COMPLEX” 
ENDIF 
RETURN 
END 


De formules voor X1 en X2 in deze subroutine zijn niet onder alle 
omstandigheden even nauwkeurig. Als bijvoorbeeld X1 bijna nul is 
omdat B en WDISC weinig van elkaar verschillen, kan men een 
betere benadering van X1 verkrijgen door eerst X2 uit te rekenen, 
en vervolgens uit te gaan van de relatie: 


X1 = C/(A * X2) 
Deze relatie is overigens algemeen geldig, en kan dus altijd worden 
gebruikt. 
Polynoomvergelijkingen van hogere graad 


Voor polynoomvergelijkingen van een hogere graad dan 2 is het bere- 
kenen van de wortels niet eenvoudig. Wel bestaat er een ingewikkel- 
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de formule voor derde-graads polynomen, maar voor hogere graden 
zijn er geen formules en moet men zijn toevlucht nemen tot nume- 
rieke methoden. 


Deze berusten op het principe dat men een oplossingsgebied 
beschouwt waarvan men zeker weet dat de gezochte wortel zich 
daarin bevindt, Vervolgens wordt dit gebied steeds kleiner gemaakt, 
totdat men een redelijke benadering heeft van de wortel. De nauw- 
keurigheid van het antwoord is te berekenen met behulp van nume- 
rieke analyse. 


Eén methode om een polynoomvergelijking op te lossen, komt over- 
een met de halveringszoekmethode die in hoofdstuk 13 besproken is. 
Eerst worden twee waarden van x bepaald waarvoor de functie ver- 
schillende tekens heeft. Mits de functie continu is, kunnen we dan 
met zekerheid stellen, dat de grafiek van de functie in het interval 
tussen deze punten minstens één keer de X-as passeert. 


De volgende stap is het halveren van het interval, en het onderzoeken 
van het middenpunt daarvan. Is er slechts één wortel in het interval, 
dan is de functiewaarde in het middenpunt òf nul, in welk geval het 
middenpunt de wortel is, òf van hetzelfde teken als één van beide 
eindpunten; deze eindpunten hadden immers verschillende tekens. 


We laten vervolgens de intervalhelft, die begrensd wordt door het 
middenpunt en het eindpunt waarvoor de functie hetzelfde teken heeft, 
buiten beschouwing en herhalen het proces voor de overblijvende 
helft. 


Naarmate we deze procedure vaker herhalen, krijgen we een steeds 
betere benadering van de wortel. De procedure wordt dan ook zolang 
herhaald, totdat we ervan overtuigd zijn dat de benaderingsfout vol- 
doende klein is; deze fout is met behulp van numerieke analyse te 
bepalen. Het is hierbij overigens zinloos een grotere nauwkeurig- 
heid na te streven dan de cijfercapaciteit van de gebruikte machine 
toelaat. 


17.8 LINEAIRE VERGELIJKINGEN 


Computers kunnen worden gebruikt om stelsels lineaire vergelijkin- 
gen op te lossen. Voor twee onbekende variabelen zijn twee verge- 
lijkingen nodig om een oplossing te kunnen vinden. 


De oplossing van het stelsel vergelijkingen: 


x= y=10 
x+y=6 


is x=8, y =-2. Dit wordt berekend door eerst één van de onbeken- 
den te elimineren. Het elimineren van de onbekende x kan bijvoor- 
beeld plaatsvinden door de eerste vergelijking te herschrijven als: 


x=y +10 

en deze waarde in de tweede vergelijking te substitueren. Dit levert: 
(y +10) +y=6 

of: 2y ==4 

of: y=-2 

Substitutie van deze waarde in de uitdrukking voor x levert: 


=-2+10=8 


Dit eliminatieproces kan stap voor stap ook voor een groter stelsel 
vergelijkingen met meer onbekenden worden uitgevoerd. Elke stap 
vermindert het aantal onbekenden, en het aantal vergelijkingen, met 
één. Een computer kan worden gebruikt om dit proces uit te voeren. 
Een veelgebruikte methode hierbij is de zogenaamde Gauss elimina- 
tiemethode. 


17.9 INTEGREREN 


Integreren is een proces dat kan worden voorgesteld als het bepalen 
van de oppervlakte tussen een kromme en een bijbehorende as. 
Hiervoor kan men gebruik maken van de zogenaamde trapezium- 
methode. 

Stel dat een functie 


y = f(x) 
gegeven is, en dat we de oppervlakte willen berekenen tussen deze 


kromme en de X-as tussen de punten x = x1 en x = xn (de oppervlakte 
zal negatief zijn als de kromme onder de X-as ligt). 


Fig. 17-3 


We verdelen de afstand tussen x1 en xn in intervallen ter grootte van 
DELTA; in bovenstaande figuur zijn we uitgegaan van vier interval- 
len. Opgevat als een trapezium, is de oppervlakte van het eerste 
gedeelte: 


(y1 + y2) x DELTA/2 


De totale oppervlakte onder de kromme wordt benaderd door de som 
van de oppervlakken van alle trapezia: 


(y1 + y2) *DELTA/2 + (y2 + y3) x DELTA/2 +... 
………(y(n-1) + yn) x DELTA/2 


ofwel: 
((y1 +yn)/2 + y2 + y3 + ..... + y(n=-1)) x DELTA/2 


Naarmate DELTA kleiner is, wordt het verschil tussen de totale 
oppervlakte van de trapezia en de oppervlakte onder de kromme 
steeds kleiner. We krijgen dan een steeds betere benadering. Ook 
hier wordt de nauwkeurigheid echter begrensd door de cijfercapaci- 
teit van de gebruikte computer. 


Het volgende programmafragment berekent zo'n oppervlakte, aange- 
nomen dat de y-waarden in een array zijn opgeslagen: 


SOM = (Y(1) + Y(N))/2. 0 
EIND = N-1 
DO 10 I-= 2, EIND 
SOM = SOM + Y(I) 
10 CONTINUE 
OPP = SOM * DELTA 
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17.10 NUMERIEKE PROGRAMMAPAKKETTEN 


In de voorgaande paragrafen hebben we (zeer) summier een aantal 
numerieke methoden besproken, die in technisch-wetenschappelijk 
rekenwerk worden toegepast. Tegenwoordig bestaan er kant-en- 
klare subprogramma's voor bijna alle standaard numerieke bereke- 
ningen. Deze worden meestal in de vorm van numerieke programma- 
pakketten op de markt gebracht. De pakketten worden op een com- 
putersysteem geïnstalleerd als een 'bibliotheek', waaruit men pro- 
gramma's kan 'lenen', Programmabibliotheken worden meestal op 
achtergrondgeheugens opgeslagen, en kunnen met behulp van 
speciale stuuropdrachten aan het eigen programma worden aange- 
sloten. 


Bij het gebruik van deze standaardprogramma's is een goede docu- 
mentatie een eerste vereiste. Men moet onder andere precies weten 
welke invoerparameters nodig zijn, hoe de resultaten worden gepre- 
senteerd, en vooral welke beperkingen het gebruikte programma 
heeft. 


17.11 AFRONDINGSFOUTEN 


Als een REAL-getal in een computer door een eindig aantal bits 
wordt voorgesteld, gaat dit meestal gepaard met een zekere fout. 
Men noemt dit een afrondingsfout. (Engels: round-off error). De 
fout kan in de laatste bit schuilen. In termen van decimale notatie 
gesproken, zou de breuk 0.132762, bij een representatie met vier 
decimalen, of als 0.1327 of als 0.1328 worden voorgesteld. In het 
eerste geval worden alle cijfers na de vierde decimaal zonder meer 
afgekapt. In het tweede geval vindt afronding plaats tot de dichtstbij- 
zijnde vier-cijferige waarde, en wel door eerst 0. 00005 bij het getal 
op te tellen, en vervolgens alle cijfers na de vierde af te kappen. 


Tijdens het verwerken van getallen in rekenkundige operaties zoals 
optellen, aftrekken, vermenigvuldigen en delen, kan de afrondings- 
fout toenemen. Men spreekt dan van een gegenereerde fout, Zet 
deze fout zich bij verdere bewerkingen in toenemende mate door, 
-de fout wordt dus steeds groter- dan spreekt men van een voort- 
schrijdende fout (Engels: propagated error). 


Bij het optellen of aftrekken van twee getallen, is de fout in het resul- 
taat gelijk aan de som van de fouten in beide getallen. Stel bijvoor- 
beeld dat het getal 0.132762 voorgesteld is als het viercijferige getal 
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0.1328. De afrondingsfout hierbij bedraagt 0. 000038. Een ander 
getal, 0. 521689, is voorgesteld als 0. 5217, waarbij de fout dus 

0. 000011 bedraagt. Optellen van de afgeronde getallen levert 0. 6545. 
Het optellen van de oorspronkelijke, zescijferige getallen levert 

0. 654451. De fout in het resultaat bedraagt dus 0. 000049, zijnde 
-inderdaad- de som van beide afrondingsfouten. 


Bij vermenigvuldiging is de relatieve (of procentuele) fout, die in het 
produkt wordt geïntroduceerd, gelijk aan de som van de relatieve (of 
procentuele) fouten in de desbetreffende getallen. De relatieve fout 
bij deling is gelijk aan het verschil van de relatieve fouten in deeltal 
en deler. 


17.12 VERLIES VAN SIGNIFICANTE CIJFERS 


We hebben gezien dat in rekenkundige bewerkingen fouten kunnen ont- 
staan. Deze fouten vinden hun oorsprong in het eindig aantal cijfers 
waarmee de desbetreffende getallen kunnen worden voorgesteld. 
Naarmate een rekenproces voortschrijdt, neemt het aantal signifi- 
cante cijfers in het resultaat af. 


Men kan echter ook op meer drastische wijze significante cijfers 
verliezen. Een voorbeeld hiervan is het aftrekken bij twee bijna 
gelijke getallen. Als 0. 3572 wordt afgetrokken van 0. 3581, levert 
dit 0. 0009. Intern wordt dit genormeerd tot het drijvende-komma- 
getal, 0.9? ??E-03, waarbij de vraagtekens willekeurige cijfers zijn 
-slechts de 9 is significant. Het aantal significante cijfers is hierbij 
gereduceerd van vier tot één. Verlies van significantie kan onder 
andere worden voorkomen door dit soort berekeningen te vermijden. 
Veelal kan men dit bereiken door de bewerkingsvolgorde te verande- 
ren. Is dit niet mogelijk, dan kan men eventueel ook zijn toevlucht 
nemen tot een grotere gegevensprecisie. FORTRAN 77 (maar niet 
SF /k) kent hiervoor het datatype DOUBLE PRECISION. 


Verlies van significante cijfers kan ook plaatsvinden als een deler 
klein, of een vermenigvuldiger groot is ten opzichte van het andere, 
in de operatie betrokken getal. 


296 


17.13 SAMENVATTING 


In dit hoofdstuk is een globale indruk gegeven van de wijze waarop de 
computer voor technisch-wetenschappelijke berekeningen kan worden 
gebruikt. Deze berekeningen worden doorgaans uitgevoerd met 
behulp van REAL-getallen. Daarbij kan een zekere onnauwkeurigheid 
ontstaan, onder meer door de volgende factoren: 


meet fouten: De oorspronkelijke gegevens kwamen tot 
stand door het meten van fysieke groot- 
heden, bijvoorbeeld lengte of snelheid. 
Bij elke meting is er een zekere mate 
van onnauwkeurigheid, Van die meet- 
fout dient men een schatting te maken. 


machine-afharkelijke Iedere computer is beperkt in de nauw- 

afrondingsfouten: keurigheid waarmee een REAL-waarde 
kan worden voorgesteld. Doorgaans kan 
men rekenen op een precisie van zeven 
decimale cijfers. Berekeningen op basis 
van REAL-grootheden kunnen nooit 
nauwkeuriger zijn dan de precisie die de 
gebruikte computer kan leveren. De 
precisie kan nog verder achteruit gaan 
door het accumulatieve effect van afron- 
dingsfouten. In FORTRAN 77 kan een 
grotere nauwkeurigheid worden bereikt 
door gebruik te maken van het datatype 
DOUBLE PRECISION. 


benaderingsfouten: Vooral numeriek-wiskundige methoden 
-bijvoorbeeld voor het bepalen van de 
wortels van een polynoom- zijn vaak 
gebaseerd op het herhaald uitvoeren van 
een bepaald berekeningspatroon. Elke 
herhaling levert een betere benadering 
van het gezochte antwoord, Het uiteinde- 
lijke resultaat van de berekening blijft 
echter een benadering van dat antwoord. 
De benaderingsfout is het verschil tus- 
sen beide genoemde waarden; deze staat 
los van eventuele meet- en afrondings- 
fouten. 
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De betrouwbare cijfers in een getal noemt men significante cijfers. 
Verlies van significante cijfers kan bij elementaire rekenkundige ope- 
raties (optellen, aftrekken, vermenigvuldigen en delen) optreden 
wanneer de bij die operatie betrokken getallen aanzienlijk in grootte- 
orde verschillen. Dit probleem kan veelal worden voorkomen door de 
elementen van de berekening anders te rangschikken. 


In dit hoofdstuk kwamen de volgende karakteristieke toepassingen ter 
sprake. 


evalueren van formules: Gebeurt veelal als een herhalingspro- 
ces, waarbij de resultaten in tabelvorm 
worden geproduceerd. 


maken van grafieken: Op de regeldrukker kan het verloop van 
een functie worden weergegeven. Even- 
tueel kan een zogenaamde plotter -een 
computerbestuurde tekenmachine- 
worden gebruikt, waarmee behalve 
losse tekens ook doorlopende lijnen kun- 
nen worden weergegeven. 


benaderen van een Experimentgegevens kunnen door een 

kromme: computerprogramma worden ingelezen 
en gebruikt om een wiskundige verge- 
lijking (een kromme) te bepalen, waar- 
aan de gegevens voldoen. 


oplossen van polynomen: Een polynoomvergelijking zoals: 


Kadet Gr 20e 0 


kan worden opgelost door een program- 
ma dat de coëfficiënten inleest (1, 9, 6 
en -23), en de wortels met behulp van 
(bijvoorbeeld) een halveringsmethode 
benadert. 


oplossen van lineaire Een stelsel lineaire vergelijkingen 
vergelijkingen: zoals: 


2x + 9 =7 
10x - 4y =2 


kan worden opgelost door een program- 
ma dat de coëfficiënten van de onbeken- 
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den (2, 9, 10 en -4), en de getallen in 
het rechterlid van de vergelijkingen (7 
en 2) inleest, en de onbekende groothe- 
den bepaalt door middel van een elimi- 
natieproces,. 


integreren: Integralen kunnen worden berekend met 


onder andere de trapeziummethode. 
Visueel voorgesteld komt dit neer op 
het benaderen van de oppervlakte, 
begrensd door de kromme van de te 
integreren functie en één van de assen, 
door een reeks trapezia. 


17.14 OPGAVEN 


DN 


Een straalvliegtuig vliegt met een snelheid van 1083. 7 kilometer 
per uur, en wordt gevolgd door een ander toestel met een snel- 
heid van 1297,9 kilometer per uur. Wat is de relatieve snelheid 
van het tweede toestel, dat wil zeggen met welke snelheid wordt 
het eerste toestel ingelopen? De snelheid van het eerste toestel 
is bekend met een nauwkeurigheid van + 5 km/uur, die van het 
tweede toestel met een nauwkeurigheid van + 0.5 km/uur. Hoe 
nauwkeurig kan de relatieve snelheid worden berekend? Hoeveel 
cijfers zijn significant in de snelheid van het eerste toestel, van 
het tweede toestel en in de relatieve snelheid? 


. Gebruik de in dit hoofdstuk behandelde subroutine GRAPH om de 


functie SIN(X) af te beelden voor X = 0.0, 0.1, 0.2,.....,3.0 
radialen. 


> Gebruik de in dit hoofdstuk behandelde subroutine GRAPH om de 


functie Xx SIN(X) af te beelden voor X = 0.0, 0.25, 0.50,....., 
12,0 radialen. 


In een maanraket is een instrument aangebracht waarmee elke 
seconde de versnelling van de raket wordt gemeten en doorgege- 
ven aan een boordcomputer. Een programma in deze (mini-) 
computer maakt een schatting van de snelheid van de raket, uit- 
gaande van een snelheid nul bij de lancering. In wezen bepaalt 
dit programma de oppervlakte onder de versnellingskromme uit- 
gezet tegen de tijd, Volgens de trapeziummethode is de snelheid 
op tijdstip Tn ongeveer: 
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((A1 + An)/2 + A2 + A3 +..... + A(n-1)) « DELTA 


waarbij Al, A2, ....., An de versnellingen zijn, gemeten op tijd- 
stippen T1, T2,....., Tn. DELTA stelt het tijdsinterval voor, 

in dit geval één seconde. De versnelling wordt gemeten in kilo- 
meter per seconde per seconde. De formule voor de snelheid Vn, 
in kilometers per seconde, n seconden na lancering, is dus: 


Vn = (Al + An)/2 + A2 + A3 +..... + A(n-1) 


Schrijf een programma dat de versnellingsgegevens inleest, en 
de snelheid na elke seconde afdrukt, 


Aanwijzingen: Het is niet nodig voor elk versnellingsgegeven 
steeds opnieuw de gehele reeks uit te rekenen, Ook het gebruik 
van een array is niet nodig. 


Een polynoom zoals Y = AX° + BX? + CX + D kan efficiënter 
worden berekend door hem als volgt te herschrijven: 


Y = (((A*X + B)*X + C)*X + D) 


Schrijf een subroutine met de naam POLY om polynomen van de 
N-de graad op deze wijze te evalueren, Neem aan, dat de coëffi- 
ciënten van de machten van X als een array zijn opgeslagen. Test 
de subroutine aan de hand van de polynoom: 


ves Wa Kn 2 


en vergelijk de uitkomsten met de gegevens in paragraaf 17.3. 
Bij het evalueren van formules dient men erop bedacht te zijn 
dat illegale operaties, zoals het berekenen van de wortel van een 
negatief getal, of het delen door nul, niet voorkomen. Tabuleer 
de waarden van de formule: 


YX -6X+2/(X- 3) 


voor X = -10, -9, -8,....., +10. 


APPENDIX 1: TAALSPECIFICATIES 
VAN SF/k 


SF/k is een opeenvolging van deelverzamelingen ofwel 'subsets' van 
de taal FORTRAN 77, en werd ontworpen voor onderwijskundige 
doeleinden. De subsets zijn: SF/1, SF/2, SF/3,....., SF/8. Elke 
subset bouwt voort op de voorgaande, en omvat tevens alle taalele- 
menten van voorafgaande subsets. 


De elementen van SF/k zijn volledig in overeenstemming met 
FORTRAN 77, Een programma geschreven in SF/k is dus tevens 
een FORTRAN 77-programma. Vanuit didactisch oogpunt zijn in 
SF/k verschillende taalelementen van FORTRAN 77 echter ingeperkt 
of weggelaten, zodat een programma geschreven in FORTRAN 77 
niet noodzakelijkerwijs een SF/k-programma is. 


In SF/k moet iedere variabele gedeclareerd worden. Taalelementen 
die met de volgende begrippen samenhangen zijn niet in SF/k opgeno- 
men: pause, complex, double precision, implicit, equivalence, data 
block, namelist. Impliciete conversies tussen numerieke, logische 
en CHARACTER datatypen zijn niet toegestaan, waardoor onregel- 
matigheden met verschillende gegevensrepresentaties worden uitge- 
sloten. 


De SF/k subsets van FORTRAN 77 zijn gebaseerd op de SP/k subsets 
van de taal PL/1. De SP/k subsets werden ontworpen door R.C. 
Holt en D. B. Wortman, medewerkers van de Computer Systems 
Research Group aan de University of Toronto. Ze worden onder- 
steund door speciaal voor dit doel ontwikkelde SP/k-compilers voor 
IBM 360/370 en Digital Equipment PDP-11 computers. 


FORTRAN 77 compilers trekken zich uiteraard niets aan van de 
beperkingen die SF/k aan het gebruik van de 'moeder'taal stelt. Het 
zondigen tegen een taalregel zoals het verplicht declareren van 
variabelen wordt door de compiler dus niet als een fout aangemerkt 
(niet-gedeclareerde variabelen krijgen in FORTRAN 77 een stan- 
daard datatype toegekend). 
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De taalelementen die in de opeenvolgende SF/k subsets worden inge- 
voerd zijn in de onderstaande tabel samengevat. 


subset ingevoerde taalelementen 


SF/1 Tekens: letters, cijfers en bijzondere tekens 
Constanten: INTEGER, REAL en literaal (CHARACTER) 
Expressies: +, -, x, /, xx, conversie van INTEGER 
naar REAL 
Eenvoudige uitvoer: lijstbestuurde (FORMAT-vrije) 
PRINT 
Wiskundige standaardfuncties: MOD, ABS, SIN, COS, 
ATAN, ALOG, EXP, SQRT 


SF/2 Identificatoren en variabelen 
Declaraties: INTEGER en REAL 
Toekenningsstatements (met conversies van REAL naar 
INTEGER) 
Eenvoudige invoer: lijstbestuurde (FORMAT-vrije) READ 


SF/3 Relationele operatoren 
Logische expressies 
Selectie: IF... THEN, .. ELSE 
Herhaling: 'IF...GO TO'-lus en DO-lus 
Paragrafering 
Logische constanten 


SF/4 CHARACTER-variabelen (vaste lengte) 
Vergelijken van CHARACTER-grootheden 

SF/ 5 Arrays (ook meerdimensionaal) 

SF/6 Uitgebreide in- en uitvoer: FORMAT's 

SF/7 Subprogramma's: subroutines en functies 


Aanroep en terugkeer 
Actuele en formele parameters 


SF/8 Bestanden en records 
Initialiseren en afsluiten van bestanden 
Lezen en beschrijven van records 
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In het navolgende deel van dit aanhangsel wordt elke subset nader 
gespecificeerd, Daarbij worden de volgende notatieconventies gehan- 
teerd: 
[element ] betekent dat het element facultatief is 
{ element } betekent dat het element één of meer 
malen gecodeerd mag worden, of 
geheel achterwege kan blijven. 


Bij de syntactische behandeling van taalconstructies geven elementen 
geschreven in hoofdletters sleutelwoorden (Engels: keywords) aan. 


Voorbeeld: RETURN 


Dergelijke elementen moeten in SF/k programma's letterlijk worden 
overgenomen. Elementen geschreven in kleine letters, bijvoorbeeld: 


statement 


vertegenwoordigen een element uit een verzameling taalelementen. 
Deze elementen worden ter plaatse gedefinieerd. 


SF/1: REKENEN EN AFDRUKKEN 


Een teken is een letter, of een cijfer, of een bijzonder teken. 
Een letter is een van de elementen van de navolgende lijst: 


ABCOEFORIINLEMNOPORSTUV 
WXYZ 


Een cijfer is een van de elementen van de navolgende lijst: 
0123456789 

Een bijzonder teken is een van de elementen van de navolgende lijst: 
+-*/()=. , $ ' b (spatie) 

Een INTEGER-constante bestaat uit een of meer cijfers eventueel 


voorafgegaan door een minteken (zonder tussenliggende spaties), 
bijvoorbeeld: 
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4 -19 243 93153 


Merk op dat een INTEGER-constante geen decimaalteken mag bevat- 
ten. 


Een REAL-constante bestaat uit één of meer cijfers met een deci- 
maalteken, of uit een mantisse gevolgd door een exponent. De man- 
tisse bestaat uit een of meer cijfers met een facultatief decimaal- 
teken. De exponent bestaat uit de letter E gevolgd door een faculta- 
tief plus- of minteken, gevolgd door een of meer cijfers, Een REAL- 
constante kan facultatief voorafgegaan worden door een minteken. 
Tussenliggende spaties zijn niet toegestaan. 


Voorbeelden van REAL-constanten 


3.14159 -2, „0025 5,16E+00  50E0 .9418E24 1.E-2 


INTEGER-constanten zijn gebonden aan een maximale grootte. Bij 
REAL-constanten is het aantal cijfers van de mantisse, en de waarde 
van de exponent eveneens aan een maximum gebonden. Deze maxi- 
mumwaarden zijn afhankelijk van de gebruikte compiler. 


Een literaal (of CHARACTER-constante) bestaat uit een apostrof, 
gevolgd door een of meer tekens (behalve de apostrof) of twee achter- 
eenvolgende apostroffen, gevolgd door een enkele apostrof. 
Voorbeelden van literalen 


'FRED' 'X = 24' 'MR. O'REILLY' 


Het aantal tekens waaruit een literaal kan bestaan is gebonden aan 
een computer-afhankelijk maximum. 


In SF/k bestaat een expressie uit INTEGER- en/of REAL-constanten 
gecombineerd met behulp van de operatoren: 


+ optellen 

- aftrekken en negatie 
x _ vermenigvuldigen 

/ delen 

xx machtsverheffen 


en eventueel haakjes. Ook standaardfuncties kunnen in expressies 
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worden toegepast. Twee rekenkundige operatoren mogen niet direct 
achter elkaar voorkomen. 


REAL- en INTEGER-waarden kunnen samen binnen een expressie 
voorkomen. In dat geval is het resultaat van het datatype REAL. 


De rekenvolgorde binnen een expressie is van links naar rechts, met 
de volgende uitzonderingen, Vermenigvuldigen en delen hebben een 
hogere prioriteit (dat wil zeggen: worden eerder uitgevoerd) dan 
optellen, aftrekken en negatie. Gedeelten van expressies die tussen 
haakjes zijn gecodeerd (deelexpressies) worden eerst geëvalueerd 
alvorens (verder) in rekenkundige bewerkingen te worden gebruikt. 
Delen (/) is slechts toegestaan indien één of beide operanden van 
het datatype REAL is (zijn). Machtsverheffen heeft voorrang boven 
vermenigvuldigen en delen. Opeenvolgende machtsverheffingen vin- 
den plaats van rechts naar links. De navolgende uitdrukkingen zijn 
voorbeelden van geldige expressies: 


-4+20 248.5E+00 (4.0E+01-12, 0E+01)/(-2) 
De waarden van deze expressies zijn 16, 17.0E+00 en 4, 0OE+01. 


Literalen mogen niet in rekenkundige bewerkingen worden gebruikt. 
SF/k kent geen impliciete conversies van numerieke naar 
CHARACTER-waarden, of omgekeerd. 


Een aanroep van een SF/1 standaardfunctie heeft een van de volgende 
vormen (zie het slot van deze appendix voor nadere informatie): 


MOD(expressie, expressie) 
ABS(expressie) 
SIN(expressie) 
COS(expressie) 
ATAN(expressie) 
ALOG(expressie) 
EXP(expressie) 

SQRT (expressie) 


Voor de MOD-functie zijn twee INTEGER-expressies als argument 
(actuele parameters) nodig; het resultaat is van het datatype 
INTEGER. De functies ABS, SIN, COS, ATAN, ALOG, EXP en 
SQRT worden aangeroepen met één argument, en wel van het type 
REAL; het resultaat is eveneens van het type REAL. 
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SF/1 kent één type statement: 
PRINT *, uitvoerelement {, uitvoerelement} 


Een uitvoerelement is een literaal of een expressie. 


Een SF/1-programma bestaat uit: 


{statement } 
STOP 
END 


waarbij, zoals eerder vermeld, het element tussen accolades -een 
statement- meerdere malen mag voorkomen. 


Voorbeeld: 


PRINT +, 2, 'PLUS', 3, 'IS', 2+3 
STOP 
END 


De uitvoer van dit voorbeeld is: 


2) PLOB TR IS: 20 


Uitvoer ten gevolge van een PRINT-statement wordt in opeenvolgende 
‘velden! in de af te drukken regel geplaatst. Het aantal afdrukposi- 
ties waaruit deze velden bestaan is afhankelijk van de gebruikte com- 
piler. Sommige compilers drukken INTEGER-waarden af in een 

veld van 12 posities, REAL-waarden in velden van 16 posities en 
CHARACTER-waarden in velden die even lang zijn als het aantal 
tekens waaruit de CHARACTER-waarde bestaat. Velden worden 
onderling gescheiden door een spatie. 


Bij het afdrukken van een literaal met behulp van een PRINT- 
statement worden de beide omvattende apostroffen achterwege gela- 
ten. Bovendien worden twee opeenvolgende apostroffen binnen een 
literaal als een enkele apostrof afgedrukt. 


Programmastatements moeten zich in positie 7 t/m 72 van de regel 
bevinden. Ze kunnen eventueel op een volgende regel worden voort- 
gezet door een willekeurig teken (behalve een spatie uiteraard) in 
positie 6 van de volgregel(s) te plaatsen. 
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SF/2: VARIABELEN EN TOEKENNINGEN 


Een identificator is een letter, eventueel gevolgd door maximaal 5 
letters en/of cijfers; tussenliggende spaties zijn niet toegestaan. 


Een SF/2-programma heeft de vorm: 


{declaratie } 
{statement } 
STOP 

END 


Een declaratie is: 
type variabele {, variabele} 
Een type is een van de navolgende mogelijkheden: 


INTEGER 
REAL 


Een statement is een van de navolgende mogelijkheden: 


PRINT x, uitvoerelement{, uitvoerelement } 
READ x, variabele {, variabele } 
variabele = expressie 


In SF/2 bestaat een variabele slechts uit een identificator: geïndi- 
ceerde variabelen zijn in deze subset niet toegestaan. Alle variabe- 
len moeten in SF/2 (en alle andere subsets) gedeclareerd worden. 
Expressies kunnen in SF/2 uit een variabele bestaan, of kunnen meer 
dan één variabele bevatten. 


REAL-waarden kunnen aan INTEGER-variabelen worden toegekend. 
Breukdelen worden daarbij zonder waarschuwingsboodschap afgekapt. 
INTEGER-waarden kunnen aan REAL-variabelen worden toegekend; 
daarbij treedt automatisch conversie op. 


Waarden die deel uitmaken van invoerbestanden en die met behulp 
van 'READ «'-statements worden ingelezen, dienen onderling door 
een of meer spaties gescheiden te worden. Bij de uitvoering van een 
READ-statement wordt voor elke variabele die in de statement 
genoemd is één waarde van het invoerbestand gelezen. Iedere uitvoe- 
ring van een READ-statement resulteert in het lezen van een nieuw 
bestandrecord. Invoerwaarden bestaan in SF/2 uit een INTEGER- 

of REAL-constante. 
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INTEGER-constanten kunnen door inlezen aan REAL-variabelen wor- 
den toegekend, waarbij-automatisch conversie optreedt. REAL- 
constanten kunnen door inlezen echter niet aan INTEGER-variabelen 
worden toegekend. Automatische conversies van CHARACTER- naar 
numerieke waarden, of omgekeerd, zijn niet mogelijk. 


Sleutelwoorden zijn bijvoorbeeld REAL, PRINT en END, dat wil zeg- 
gen: woorden die deel uitmaken van de syntaxis van SF/k, en als 
zodanig in de statement-definities zijn vastgelegd. Sleutelwoorden 
kunnen beter niet als identificator worden gebruikt. 


Voor of na bepaalde onderdelen van een statement kan een willekeurig 
aantal spaties staan, bijvoorbeeld voor of na constanten, sleutelwoor- 
den, identificatoren, rekenkundige operatoren en haakjes. Opeenvol- 
gende constanten, sleutelwoorden of identificatoren, bijvoorbeeld: 


INTEGER I 


dienen door minstens één spatie gescheiden te zijn. 


Commentaar bestaat uit de letter C op positie 1 en willekeurige 
tekens -die samen het eigenlijke commentaar vormen- op posities 
2 t/m 72. Zonodig kan commentaar op een volgende regel worden 
voortgezet door op de eerste positie van de vervolgregel(s) ook een 
C op te nemen. Het gebruik van een continuatieteken op positie 5 is 
bij commentaar niet mogelijk. Commentaar kan geen deel uitmaken 
van een invoerbestand. Blanco regels worden als commentaar 
geaccepteerd. 


SF/3: PROGRAMMABESTURING 


Een conditie heeft een van de volgende vormen: 


. TRUE. 

. FALSE. 

. NOT. conditie 
conditie. AND. conditie 
conditie. OR. conditie 
vergelijking 


Een conditie wordt ook wel een logische expressie genoemd. 
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Een vergelijking is een van de navolgende mogelijkheden: 


expressie . 


expressie 


expressie . 


expressie 


expressie . 


expressie 


‚ LE. 


. expressie 


expressie 
expressie 
expressie 


‚ expressie 
. expressie 


Een type is een van de navolgende mogelijkheden: 


INTEGER 
REAL 


In tegenstelling tot REAL- en INTEGER-waarden kunnen logische 
expressies als operand worden gebruikt in bewerkingen met AND-, 
OR- en NOT -operatoren. 


De AND-operator heeft een hogere prioriteit dan de OR-operator. 


Er is geen impliciete conversie tussen numerieke waarden (INTEGER 
en REAL) en logische waarden. Logische waarden kunnen geen deel 
uitmaken van rekenkundige bewerkingen. 


Een SF/3-statement is een van de navolgende mogelijkheden: 
PRINT x, uitvoerelement { , uitvoerelement } 
READ x, variabele {, variabele } 


IF (conditie) THEN 
{statement } 
[ELSE 
{ statement } ] 
END IF 


DO label identificator = beginparameter, eindparameter 
[, stapparameter] 

) { statement } 

label CONTINUE 

label1 IF (conditie) GO TO label2 
{ statement } 
GO TO label1 

label2 CONTINUE 
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Alle labels in bovenstaande statements bestaan uit 1 t/m 5 cijfers, 
aangebracht in de eerste 5 posities van de regel (het labelveld). 


Bij de tellerbestuurde DO-statement is de label na het sleutelwoord 
DO dezelfde als in het labelveld van de CONTINUE-statement. De 
label moet uniek zijn, dat wil zeggen: mag niet in een ander labelveld 
voorkomen. De identificator, genoemd in de DO-statement na de 
label, moet als enkelvoudige INTEGER-variabele gedeclareerd zijn; 
geïndiceerde variabelen (die overigens pas in SF/5 aan de orde 
komen) zijn niet toegestaan. De stapwaarde is facultatief; ontbreekt 
deze parameter dan geldt een verstekwaarde van 1. 


De begin-, eind- en (indien aanwezig) de stapparameter dienen 
INTEGER-constanten of -variabelen te zijn, met een waarde groter 
dan nul. Is een parameter een variabele, dan mag de waarde daar- 
van binnen de lus niet veranderd worden. Ook het aanpassen van de 
waarde van de teller is binnen de lus verboden. 


Bij het 'betreden' van een lus wordt de teller ingesteld op de waarde 
van de beginparameter. Mits deze waarde de waarde van de eindpara- 
meter niet te boven gaat, wordt de kern van de lus uitgevoerd. Bij 
het bereiken van het einde van de lus wordt de stapwaarde bij de 
tellerwaarde opgeteld. Is de resulterende waarde kleiner dan, of 
gelijk aan de eindwaarde, dan wordt de luskern nogmaals uitgevoerd, 
anders wordt de uitvoering van de lus beëindigd. 


De 'IF... GO TO'-lus kent twee verschillende labels: labell en 
label2. Geen twee labels in kolommen 1 t/m 5 mogen gelijk zijn. 


Paragraferingsregels zijn conventies voor het inspringen in de regels 
van een programmatekst. Sommige compilers kennen de mogelijk- 
heid om programmateksten volgens bepaalde paragraferingsregels 
automatisch te laten inspringen. Als deze mogelijkheid aanwezig is, 
verdient het aanbeveling daarvan gebruik te maken. 


Een verzameling paragraferingsregels kan afgeleid worden van de 
wijze waarop SF /k-constructies in dit aanhangsel zijn gepresenteerd. 
De 'IF...GO TO'-lus werd bijvoorbeeld in de volgende vorm geno- 
teerd: 


label1l IF(conditie) GO TO label2 
{ statement } 
GO TO labell 

label2 CONTINUE 


Dit betekent dat de statements die deel uitmaken van de lus (met uit- 
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zondering van de CONTINUE) inspringen ten opzichte van de IF- 
statement waarmee de lus begonnen wordt. De CONTINUE-statement 
bevindt zich op hetzelfde 'niveau' als de IF. 


Het verdient aanbeveling commentaarregels op dezelfde positie te 
beginnen als de programmaregel(s) waarop dat commentaar betrek- 
king heeft. Bij statements die zich uitstrekken over meerdere kaar- 
regels is het zinvol de volgregels te laten inspringen ten opzichte 
van de beginregel (de zogenaamde initial line). Paragraferingsre- 
gels dienen overigens met het nodige beleid te worden toegepast. 
Ook door te veel paragraferingsniveaus kan de programmastructuur 
ondoorzichtig worden. In dat geval kan met de paragraferings- 
regels beter niet toepassen. 


SF/4: DE VERWERKING VAN ALFANUMERIEKE GEGEVENS 


Een datatype is een van de navolgende elementen: 


INTEGER 
REAL 
CHARACTER x lengte 


Variabelen met het attribuut CHARACTER * lengte zijn CHARACTER- 
variabelen, dat wil zeggen: variabelen die tekenreeksen kunnen 
bevatten. Bij de declaratie van deze variabelen is 'lengte' een 
INTEGER-constante zonder teken en groter dan nul. 


Elke CHARACTER-variabele heeft een vaste lengte die bepaald 
wordt door de bijbehorende declaratie. Bij het toekennen aan een 
CHARACTER-variabele van een tekenreeks die korter is dan de 
gedeclareerde lengte, wordt de tekenreeks in de 'linker' (= meest 
significante) posities opgeborgen; de overblijvende ruimte wordt aan- 
gevuld met spaties. Is de tekenreeks langer, dan kunnen 'rechts' 
zoveel tekens worden afgekapt dat de lengte van de reeks wel met de 
lengte van de desbetreffende CHARACTER-variabele overeenkomt, 
Sommige compilers kunnen het toekennen aan een CHARACTER- 


= variabele van een te lange tekenreeks echter als illegaal aanmerken. 


Bij het vergelijken van tekenreeksen van verschillende lengte wordt 
de kortere reeks intern 'rechts' met spaties aangevuld tot de lengte 
van de grotere. 


Tekenreeksen kunnen vanaf invoerbestanden worden ingelezen. De 
waarde van CHARACTER-variabelen kan worden afgedrukt. 
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FORTRAN 77 kent standaardfuncties voor het bepalen van de lengte 
van tekenreeksen, voor het samenvoegen van tekenreeksen, en voor 
het afsplitsen van delen (Engels: substrings) van een tekenreeks; 
deze zijn in SF/k niet gedefinieerd. 


Er is geen impliciete conversie tussen CHARACTER- en numerieke 
of logische waarden mogelijk. 


SF/5: ARRAYS 


De declaratievorm blijft in SF/k: 
type variabele {, variabele } 


De vorm van de variabele kan nu anders zijn, en wel om arraygren- 
zen aan te kunnen geven, De variabele ziet er dan als volgt uit: 


identificator [ (grens {,grens})] 


Een grens is een INTEGER-constante met een waarde groter dan 
nul, en specificeert de maximale waarde die de desbetreffende 
arrayindex mag aannemen; de ondergrens is in SF/k altijd 1. In 
volledig FORTRAN 77 kan de index variëren van elke INTEGER- 
waarde m (hetzij positief, hetzij negatief) tot een INTEGER-waarde 
n, waarbij m<n. Het indexbereik wordt dan aangegeven met m:n. In 
SF/k kunnen maximaal 3 indices worden gespecificeerd. Volledig 
FORTRAN 77 kent een maximum van 7 indices. 


In een expressie of in een READ-statement heeft een variabele de 
vorm: 


identificator [ (expressie {,expressie})] 


waarbij ‘expressie! een arrayindex voorstelt. Elke arrayindex- 
expressie moet een INTEGER-waarde hebben die binnen het gedecla- 
reerde gebied ligt, 


De waarden van arrayelementen kunnen onderling vergeleken worden, 
of toegekend, ingelezen en afgedrukt worden, op een element-voor- 
element basis, op dezelfde wijze als enkelvoudige variabelen met 
gelijksoortige attributen. Op één uitzondering na -de nAw veldbe- 
schrijver van SF/6- moeten arrays in SF/k element voor element 
ingelezen en afgedrukt worden. 
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SF/6: IN- EN UITVOER MET FORMAT-BESTURING 


De FORMA T-vrije PRINT- en READ-statements zijn in SF/2 inge- 
voerd. In SF/6 worden de FORMAT-bestuurde vormen van deze 
statements ingevoerd. Ze zien er als volgt uit: 


PRINT label {, expressie } 
label FORMAT(wagenbesturingscode {, veldbeschrijver }) 


READ label, variabele {, variabele } 
label FORMAT (veldbeschrijver {, veldbeschrijver }) 


FORMAT-vrije en FORMAT-bestuurde READ- en PRINT-statements 
kunnen binnen een programma door elkaar worden gebruikt, Merk op 
dat bij FORMAT-vrije READ- en PRINT-statements een asterisk in 
plaats van een label wordt gebruikt. 


De wagenbesturingscode bij een FORMAT-bestuurde PRINT- 
statement bestaat uit een van de navolgende tekens: 


i (spatie) begin een nieuwe regel 


'0' (nul) sla regel over en begin nieuwe regel 
4’ (één) begin nieuwe pagina 
M (plus) bedruk huidige regel opnieuw. 


Bij het uitvoeren van een FORMAT-bestuurde READ-statement wordt 
steeds een nieuw bestandsrecord geraadpleegd; eventueel resterende 
gegevens in het vorige record worden daarbij buiten beschouwing 
gelaten. Wagenbesturingscodes mogen niet in FORMAT-statements 
behorende bij READ-statements worden gespecificeerd. 


Een veldbeschrijver is een van de navolgende mogelijkheden: 


nX Volgende n posities overslaan. 


Iw Afdrukken of inlezen van een INTEGER-getal, rechtsaan- 
gesloten geplaatst in een veld van w posities. 


Fw.d Afdrukken of inlezen van een REAL-getal zonder expo- 
nent, rechtsaangesloten geplaatst in een veld van w posi- 
ties. Het aantal decimale (breuk-)cijfers rechts van het 
decimaalteken wordt bepaald door d. 
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Ew.d Afdrukken of inlezen van een REAL-getal met exponent, 
rechtsaangesloten geplaatst in een veld van w posities. 
Het aantal decimale (breuk-)cijfers rechts van het deci- 
maalteken wordt bepaald door d. 


Aw Afdrukken of inlezen van w tekens. 


nA w Wordt in SF/k gebruikt voor het afdrukken of inlezen van 
n verzamelingen van w tekens met behulp van een ééndi- 
mensionale array met n elementen van het datatype 
CHARACTER »*w. Dit is (in SF/k) het enige FORMAT- 
element waarmee in- of uitvoerbewerkingen op een array 
als geheel kunnen worden uitgevoerd. 


Er dient rekening te worden gehouden met de navolgende beperkingen 
en details. 


- Iedere n, w en d stelt een INTEGER-constante zonder plus- of 
minteken voor, die groter is dan nul, bijvoorbeeld 80A1. 


- REAL-grootheden worden bij afdrukken afgerond. 


- Getallen die met behulp van de I, F of E opmaakcodes worden ver- 
werkt, worden rechtsaangesloten afgedrukt, of worden bij inlezen 
verondersteld zich rechtsaangesloten in hun velden te bevinden. 


- Een variabele of literaal die met behulp van een Aw-specificatie 
wordt verwerkt dient een lengte van w tekens te hebben. 


- In SF/k moet iedere variabele in een FORMAT -bestuurde READ 
of PRINT overeenkomen met een I, F, E of A opmaakcode. De X- 
opmaakcode kan aan een van de genoemde codes voorafgaan, of 
met die codes afgewisseld worden, maar mag niet als laatste ele- 
ment in een lijst van veldbeschrijvers voorkomen. 


- Bij het inlezen van getallen worden blanco posities in invoervelden 
geacht een nul te bevatten, Hiermee dient rekening te worden 
gehouden bij het intoetsen van de getallen (spatiëring!). 


- Van een getal zonder decimaaltekens dat met behulp van een Fw.d 
veldbeschrijver wordt ingelezen, worden de rechter d cijfers als 
breukcijfers opgevat. Bevat het getal wel een decimaalteken, dan 
bepaalt de plaats van dit teken het aantal breukcijfers; de 'd'- 
specificatie in de veldbeschrijver wordt dan buiten beschouwing 
gelaten. | 
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- Getallen die met behulp van de Fw. d-veldbeschrijver worden inge- 
lezen mogen geen exponent bevatten. Bij de Ew,d-veldbeschrijver 
mogen getallen zowel met als zonder exponent voorkomen, Een 
'd'-specificatie wordt buiten beschouwing gelaten als het invoer- 
veld een decimaalteken bevat. Is er geen decimaalteken, dan wor- 
den d cijfers, gerekend vanaf de rechterkant van de mantisse, 
geacht breukcijfers te zijn. 


SF/7: SUBPROGRAMMA’S 


In SF/7 wordt de vorm van een programma uitgebreid om de specifi- 
catie van subprogramma's mogelijk te maken. 


Een SF/7-programma is: 


{definitie } 
{statement } 
STOP 

END 
{subprogramma } 


Een subprogramma is een van de navolgende mogelijkheden: 


SUBROUTINE naamí (identificator { , identificator}) | 
{definitie } 

{statement } 

RETURN 

END 


type FUNCTION naam(identificator {,identificator}) 
{definitie } 

{ statement } 

RETURN 

END 


Onder type wordt een van de navolgende elementen verstaan: 


INTEGER 
REAL 
CHARACTER * lengte 
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Onder definitie wordt een van de navolgende mogelijkheden verstaan: 
type variabele {, variabele} 
COMMON /identificator/ identificator {, identificator } 


Merk op dat een definitie uit een declaratie kan bestaan, Alle (for- 
mele) parameters van een subprogramma moeten gedeclareerd zijn, 
en qua datatype, indexbereik en lengte gelijk zijn aan de overeenkom- 
stige actuele parameters. Er is geen automatische REAL/INTEGER 
conversie tussen formele en actuele parameters mogelijk. Een 
indexbereik kan als formele parameter voorkomen, mits die parame- 
ter een enkelvoudige INTEGER-variabele is. Voor de lengte van 
CHARACTER-parameters moet in de definitie een INTEGER- 
constante, zonder teken en ongelijk nul, worden gebruikt. 


Toekenning van een waarde aan een formele parameter tijdens de 
uitvoering van een subprogramma resulteert in dezelfde toekenning 
aan de overeenkomstige actuele parameter. Bestaat een actuele 
parameter uit een constante of een expressie, dan mag de overeen- 
komstige formele parameter tijdens de uitvoering van het subpro- 
gramma niet worden veranderd. De waarde van formele parameters 
die overeenkomen met de parameters van een DO-statement in een 
aanroepend programma, mogen evenmin tijdens de uitvoering van 
een subprogramma worden veranderd. Functies moeten minstens 
één parameter hebben. Bij subroutines zijn parameters facultatief. 


Bij iedere definitie van een gegeven COMMON-gebied dient men in 
SF/k steeds dezelfde variabelen in dezelfde volgorde te specificeren. 
De 'attributen' van deze variabelen -datatype, eventueel indexbereik 
en lengte- dienen eveneens gelijk te zijn. Elk COMMON-gebied 
dient ook in het hoofdprogramma te zijn gedefinieerd. 


Subroutines worden aangeroepen met behulp van een CALL- 
statement: 


CALL subroutinenaam [(expressie {, expressie }) ] 


Functiesubprogramma's worden aangeroepen door de naam van de 
functie, samen met de bijbehorende actuele parameter(s) te specifi- 
ceren in een expressie. Elk hoofd- of subprogramma dat een functie- 
subprogramma aanroept, dient een declaratie te bevatten waarin het 
datatype van de functiewaarde wordt gedefinieerd. Als bijvoorbeeld 
FUNC een functiesubprogramma is dat een INTEGER-waarde levert, 
behoort de declaratie: 


INTEGER FUNC 
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in alle aanroepende programma's opgenomen te worden. Binnen een 
functiesubprogramma kan de naam van de functie zonder nadere 
declaratie als een enkelvoudige variabele worden gebruikt. Aan deze 
tvariabele! dient bij de uitvoering van de functie minstens één keer 
een waarde te worden toegekend. Deze waarde is dan de waarde van 
de functie. 


Recursiviteit bij subprogramma's is niet toegestaan, dat wil zeggen: 
subprogramma's mogen zichzelf noch direct, noch indirect aanroe- 
pen. 


Binnen een gegeven hoofd- of subprogramma dienen alle namen van 
variabelen, subprogramma's en COMMON-gebieden uniek te zijn. 
Ook labels moeten uniek zijn. Namen en labels in verschillende pro- 
gramma's of subprogramma's behoeven niet uniek te zijn. 


Een job in SF/7 bestaat uit: 


$JOB 
programma 
{subprogramma } 
SENTRY 
[invoerbestand ] 


Een SF/7-statement bestaat uit een van de navolgende mogelijkheden: 


a. PRINT *, expressie {, expressie } 
b. READ *, variabele {, variabele } 
C. PRINT label {, expressie} 
label FORMAT(wagenbesturingscode {, veldbeschrijver}) 
d. READ label, variabele {,variabele} 
label FORMAT(veldbeschrijver { , veldbeschrijver }) 
e. variabele = expressie 
Î. IF (conditie) THEN 
{statement} 
[ELSE 
{statement} ] 


END IF 
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g. labell IF(conditie) GO TO label2 
{statement } 
GO TO label1 
label2 CONTINUE 
h. DO label identificator = start, eind [, stap ] 
{statement } 
label CONTINUE 
k CALL subroutinenaam [(expressie { , expressie})] 
A RETURN 
k. STOP 


De STOP-statement wordt gebruikt voor het beëindigen van de execu- 
tie van een hoofdprogramma. De RETURN-statement dient een 
soortgelijk doel bij subprogramma's -bij uitvoering daarvan vindt 
besturingsoverdracht plaats naar het aanroepende programma. 


SF/8: BESTANDEN EN RECORDS 


In SF/8 wordt het gebruik van andere externe bestanden dan 

voor standaard in- en uitvoer behandeld. Zo'n bestand wordt 

ook wel file of dataset genoemd. Files zijn in SF/k sequentieel. Ze 
bestaan uit een opeenvolging van records. Elk record bestaat op zijn 
beurt uit een opeenvolging van velden. Met elk veld is een van de 
SF/k datatypen verbonden: INTEGER, REAL of CHARACTER x n. 

Het recordprofiel (Engels: template) is de verzameling datatypen van 
de opeenvolgende velden. Ieder record van een bestand moet volgens 
hetzelfde recordprofiel opgebouwd zijn. 


Alvorens gegevens naar een bestand weg te schrijven, of gegevens 
van een bestand te lezen, moet initialisatie hebben plaatsgevonden 
door middel van de statement: 


REWIND bestandnummer 


Het bestandnummer is een INTEGER-constante zonder teken en onge- 
lijk nul. 
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Records kunnen in sequentiële volgorde aan het einde van een bestand 
worden toegevoegd door middel van de statement: 


WRITE(bestandnummer) variabele {, variabele} 


Elke variabele waarvan de waarde naar een bestand wordt wegge- 
schreven moet in SF/k enkelvoudig zijn of een arrayelement (volle- 
dige arrays zijn dus niet toegestaan). De lijst met variabelen vormt 
samen een record dat aan het einde van het bestand wordt toegevoegd. 
Na het wegschrijven van de laatste record moet het bestand afgeslo- 
ten worden met behulp van de statement: 


ENDFILE bestandnummer 


Records kunnen in sequentiële volgorde worden gelezen door middel 
van de statement: 


READ(bestandnummer) variabele {, variabele} 


Ook hierbij moet elke variabele enkelvoudig zijn, of een arrayele- 
ment zijn. De inhoud van de desbetreffende record wordt toegekend 
aan de in de READ-statement genoemde variabele(n). Het record- 
profiel zoals gedefinieerd door de datatypen van die variabelen moet 
overeenkomen met het profiel van de records in het bestand. Er kan 
niet voorbij het einde van het bestand worden gelezen. 


Is een bestand eenmaal (met behulp van een REWIND) geïnitialiseerd, 
dan kan het òf gelezen òf beschreven worden, maar niet beide. Een 
bestand dat beschreven wordt kan tijdens de uitvoering van hetzelfde 
programma gelezen of opnieuw beschreven worden door het eerst af 
te sluiten met een ENDFILE-statement, en het dan opnieuw te initia- 
liseren met een REWIND-statement. Iedere keer dat een bestand 

(na een REWIND) opnieuw wordt beschreven, gaat de vorige inhoud 
van dat bestand verloren; na het beschrijven van het bestand moet 
opnieuw met een ENDFILE worden afgesloten. 
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STANDAARDFUNCTIES IN SF/k 


a. INTEGER standaardfuncties 
MOD(i, j) Rest van i gedeeld door j; i en j moeten beide 


van het type INTEGER zijn. Het resultaat is 
INTEGER. 


b. REAL standaardfuncties 


De argumenten van deze functies moeten van het type REAL zijn. 
Het resultaat is REAL. 


ABS(x) Absolute waarde van x 

SIN (x) Sinus van x (x in radialen) 

COS(x) Cosinus van x (x in radialen) 

ATAN(x) Arctangens van x (resultaat in radialen) 
ALOG(x) Natuurlijke logaritme van x 

EXP(x) e tot de macht x 

SQRT (x) Vierkantswortel van x 


C. CHARACTER standaardfuncties 


Geen. 


APPENDIX 2: OVERZICHT FORTRAN 77 


In deze appendix wordt in alfabetische volgorde een overzicht gegeven 
van de statements die in het definiërende document van FORTRAN 77 
(ANSI-norm X3. 9-1978) zijn vastgelegd. Tevens wordt aangegeven 

of een statement ook deel uitmaakt van een van de SF /k-subsetsi en, 
zo ja, waar die statement in dit boek behandeld wordt. Hierdoor kan 
deze appendix ook voor naslagdoeleinden worden gebruikt. Ook de 
zogenaamde 'section' van het ANSI-document die op een statement 
betrekking heeft, wordt genoemd. 


X3. 9-1978 definieert twee taalniveaus: volledig ('full') FORTRAN en 
een subset (overigens een andere subset dan SF/k). Dit overzicht is 
gebaseerd op de volledige taalspecificaties, dat wil zeggen alle 
FORTRAN 77 statements worden genoemd. In die zin is deze appen- 
dix compleet. De appendix blijft echter een statement-overzicht: 
zaken die niet rechtstreeks met een statement te maken hebben wor- 
den niet genoemd. 


Er wordt gebruik gemaakt van de notatievorm van het definiërende 
document. In het kader van dit overzicht wijkt deze slechts op één 
punt af van de vorm die in appendix 1 is gehanteerd. Dit betreft het 
gebruik van drie opeenvolgende punten (een zogenaamde ellipsis) om 
aan te geven dat een facultatief element van een statement één of 
meer malen achtereenvolgens mag voorkomen. 


Voorbeeld: CALL sub [([al‚al...])] 


betekent dat de volgende vormen van deze statement 
zijn toegestaan: 


CALL sub 

CALL sub () 

CALL sub (a) 

CALL sub (a, a) 

CALL sub (a,a, a) enzovoort 


Ipit betekent echter niet dat de statement in al zijn aspecten in SF/k geldig is. 
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vorm en toelichting X3.9-1978 SF /k 


ASSIGN S TO i 10.3 =- 


Kent een label toe aan een variabele. 

Wordt gebruikt in samenhang met de 

‘assigned GO TO'-statement 

(zie GO TO j). 
Mdeon A E vn ne ade 
BACKSPACE u 12,10.4 -- 
BACKSPACE (alist) 


Positioneert een sequentieel bestand op 
het begin van de voorgaande record. 


BLOCK DATA [sub] 16 -- 


Definieert het begin van een BLOCK 

DATA subprogramma, d.w.z. een sub- 

programma waarin aan variabelen en 

arrayelementen, die deel uitmaken van 

een benoemd COMMON-gebied (Engels: 

named common block), een initiële 

waarde wordt toegekend. 

a a a a a a A E TA O OALA 


CALL sub [([a[,a]...])] 15.6.2. 1 SF/7, 
Roept een subroutine met de naam 'sub' ni 80 
aan, 
ot En EE ETEN KL A A N E TE 
CHARACTER [xlen{[,]] nam [,nam]... 8.4.2 SF/4, 

blz, 119 
Character Type-statement. SF/5, 


Kent aan één of meer variabelen, arrays blz. 131 
enz. het datatype CHARACTER toe. Kan 3 
tevens worden gebruikt voor het declare- 

ren van arraydimensies, 

OT EE E SE OAN A ANNES ARD ME 
CLOSE (cllist) 12, 1052 -= 


Verbreekt de koppeling tussen een 
bestand en een I/O-unit. 


COMMON [/ [cb]/]nlist [[,]/ [cb]nlist]... 8.3 SF/7, 


Definieert een verband tussen gegevens blz. 204 


van verschillende programma-eenheden, 

waardoor die gegevens tijdens het execu- 
tieproces vanuit verschillende program- 

ma's benaderbaar zijn. 
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vorm en toelichting X3. 9-1978 SF/k 


COMPLEX v[,v] 8.4.1 -i 


Complex Type-statement. Kent aan één 

of meer variabelen, arrays enz. het data- 
type COMPLEX toe. Kan tevens worden 
gebruikt voor het declareren van array- 
dimensies. 


CONTINUE Ihot SF/3, 


Is een executable statement zonder enig 
effect. Wordt veelal gebruikt als afslui- 
ting van een DO-lus, 


DATA nlist/elist/ [[,] nlist/elist/]... 8,10. 2 == 


Wordt gebruikt om variabelen, arrays, 
arrayelementen en substrings een initiële 
waarde te geven. 


DIMENSION a(d) [,a(d)] .… 8.1 wi 


Specificeert naam en dimensies van een 
of meer arrays. 


DO s [,] i = ej, €s Leg] 11.10 SF/3, 
blz. 72 
(paragr. 
5.1) 


Definieert een zogenaamde DO-lus. 


DOUBLE PRECISION v[, v ] 8.4.1 ei 


Double Precision Type-Statement. Kent 
aan één of meer variabelen, arrays enz. 
het datatype DOUBLE PRECISION toe. 
Kan tevens worden gebruikt voor het 
declareren van arraydimensies. 


ELSE 11. 81 SF/3, 
blz. 87 


Definieert het begin van een zg. ELSE- (par. 5. 6) 


block. Dit bloek bevat alle executable’ 
statements na de ELSE tot de eerstvolgen- 
de 'END IF' -statement die zich op het- 
zelfde 'IF-niveau' bevindt als die ELSE- 
statement. Uitvoering van de ELSE- 
statement zelf heeft geen effect. 
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vorm en toelichting X3. 9-1978 SF/k 
ELSE IF (e) THEN ti. F SF/3, 
ELSE IF statement. Definieert het begin rd T 
van een zg. ELSE IF-block. Dit block Pig 


bevat alle executable statements na de 

ELSE IF tot de eerstvolgende 'ELSE IF'-, 

'ELSE'- of 'END IF '-statement die zich 

op hetzelfde 'IF-niveau' bevindt als die 

"ELSE IF'-statement. 

EE EN A S E E 
END 11.14 SF/1, 


Geeft het fysieke einde aan van een pro- 
gramma of subprogramma. Wordt in 
FORTRAN 77, integenstelling tot FOR- 
TRAN 66, aangemerkt als een execu- 
table statement. Bij uitvoering in een 
functie- of subroutine-subprogramma 
heeft deze statement hetzelfde effect als 
een RETURN-statement. Bij uitvoering 
in een hoofdprogramma wordt de exe- 
cutie van dat programma beëindigd. 
enen ete de a A E S 
END IF 11,9 SF/3, 


Vormt de afsluiting van een zg. block blz. 87 


IF -statement (zie IF (e) THEN). 
DO nnee ade ende dT LE 


ENDFILE u 19.10.48 BRR 
ENDFILE (alist) blz. 248, 
251 


Behoort tot dezelfde groep statements als 
de BACKSPACE-statement. Executie van 
een ENDFILE-statement resulteert in het 
afsluiten van een bestand met een zg. 
ENDFILE-record. Het bestand wordt 
gepositioneerd na de desbetreffende 
ENDFILE-record. De statement is 

zowel op direct-toegankelijke als op 
sequentiële bestanden van toepassing. 
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vorm en toelichting X3. 9-1978 SF/k 


ENTRY en [([d [,d]...1)] 157 ie 


Een nonexecutable statement die de 
mogelijkheid geeft met de executie van 
een functie- of subroutine-subprogramma 
op een andere plaats te starten dan aan 
het begin. 


EQUIVALENCE (nlist) [, (nlist)]... 8. 2 = = 


Specificeert dat twee of meer grootheden 
van een programma-eenheid (bijvoorbeeld 
variabelen) dezelfde geheugenlokaties 
delen. 


EXTERNAL proc [, proc]... 8.7 be 


Specificeert dat een identificator een zg. 
externe of een zg. dummy procedure 
voorstelt, en maakt het mogelijk die iden- 
tificator als actuele parameter te gebrui- 
ken. 


FORMAT fs | IA SF/6, 


Wordt in samenhang met FORMAT- 
bestuurde in- en uitvoerstatements 
gebruikt om de vorm waarin, en de wijze 
waarop gegevens worden ingelezen of 
uitgevoerd, te specificeren. 

tier a OEE E A DE NAA A a 


fun ([d[,d]...]) = e 15.4 == 


Een zg. Statement Function. Definieert 
(in één regel) een functie, die slechts 
binnen de programma-eenheid waarin het 
voorkomt kan worden aangeroepen. 


[typ ] FUNCTION fun ([d[,d]...]) 158,5 SF/7, 
blz. 184 


Definieert het beginpunt, de naam, para- (par. 11.5) 


meter en eventueel het datatype van een 
functiesubprogramma. 
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vorm en toelichting X3. 9-1978 SF/k 


RE Ell [aliy] 11.3 -- 


'Assigned GO TO'-statement. Afhanke- 

lijk van de waarde van i wordt gesprongen 

naar een van de statements aangegeven 

door de labels s. Aan i moet eerder een 

'label'-waarde zijn toegekend d.m.v. een 

ASSIGN-statement. 

aa i EE S SEE = E EE CON EE E S A E o OR 
GO TO s LET SF/3, 


Onvoorwaardelijke 'GO TO'-statement. blz. 79, 81 


Bij executie wordt gesprongen naar de 

statement met label s. Die statement 

moet executable zijn, 
SE ENA DAE ONDO E ESSESI, Betr Ae 
er ae te De OA | tien -== 


'Computed GO TO'-statement. Een 
gelijksoortige statement als de assigned 
GO TO. I.p.v. een label heeft i een 
zuiver numerieke waarde. Deze waarde 
wordt opgevat als rangnummer van de 
genoemde statement-labels s. Heeft i 
bijvoorbeeld de waarde 3, dan wordt 
gesprongen naar de statement met de 
derde label. Is i groter dan het aantal 
labels, dan wordt de volgende executable 
statement na de computed GO TO uitge- 


voerd. 
en a E SELIN P EL A T A E AS 
IF (e) st E SF/3, 


‘Logical IF '-statement. Als de waarde 
van e (een logische expressie) waar is, 
dan wordt st (een statement) uitgevoerd. 
'st' mag een willekeurige executable 
statement zijn behalve een DO, block IF, 
ELSE IF, ELSE, END IF, END of een 
andere logical IF. 
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vorm en toelichting X3.9-1978 
IF (e) S4» So Sg 11.4 
'Arithmetic IF'-statement. Een verkapte 

'GO TO'-statement. 'e' is een INTEGER-, 

REAL- of 'DOUBLE PRECISION'- 

expressie. Afhankelijk van het kleiner 

dan, gelijk aan, of groter dan nul zijn 

van deze expressies, wordt gesprongen 

naar de statement met de label S4» 59 of 


Sa» 
IF (e) THEN 11.6 


Zg. 'block IF'-statement. Wordt gebruikt 
in samenhang met de 'END IF'-statement, 
en eventueel ook met de 'ELSE IF'- en de 
'ELSE'-statements. Afhankelijk van de 
waarde van e (een logische expressie) 
worden in principe de statements die tot 
de IF-block behoren (d.w.z. alle state- 
ments tussen de 'block IF' en de bijbe- 
horende END IF) uitgevoerd. 


IMPLICIT typ (a, [,al...) 8,5 
[typ (a [,l-..…)l... 


Met deze statement kan vastgelegd worden 
dat alle variabelen, waarvan de identifi- 
cator met een bepaalde letter begint, tot 
een bepaald datatype behoren. Bijvoor- 
beeld: alle variabelen die met de letter X 
beginnen, zijn (in principe) van het data- 
type INTEGER, 


INQUIRE (iflist) 12.10.3 


Een statement waarmee eigenschappen 
van een bestand (zoals recordlengte, 
toegangsmethode, enz.) opgevraagd kun- 
nen worden. 


INTEGER v [v]... 8.5 


Integer Type-statement. Kent aan één of 
meer variabelen, arrays, enz, het data- 
type INTEGER toe. Kan tevens worden 
gebruikt voor het declareren van array- 
dimensies. 


SF/k 


SF/3, 
blz. 87-91 
(par. 5. 6, 
5. 7) 


blz.132 
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vorm en toelichting X3. 9-1978 SF/k 


INTRINSIC fun [, fun]... 8.8 -= 


Specificeert dat een identificator fun een 
standaardfunctie (Engels: intrinsic func- 
tion) voorstelt, en maakt het bovendien 
mogelijk een identificator, die een speci- 
fieke standaardfunctie voorstelt, te 
gebruiken, als een actuele parameter. 


LOGICAL v [iv]... 8.4.1 -- 


Logical Type-statement. Kent aan één of 
meer variabelen, arrays, enz. het data- 
type LOGICAL toe. Kan tevens worden 
gebruikt voor het declareren van array- 
dimensies. 


OPEN (olist) 12.10.1 wis 


Wordt gebruikt voor het creëren en/of 
aansluiten van een bestand. 


PARAMETER (p=e [,p=e]...) 8.6 s$ 


Verbindt een identificator p aan een 
bepaalde constante. De identificator p 
kan dan op dezelfde wijze en met dezelfde 
betekenis worden gebruikt als de desbe- 
treffende constante. Handig als een con- 
stante geen 'echte' constante is, d. W. Z. 
als bij een volgende uitvoering van het 
programma een andere constante wordt 
gebruikt. 


PAUSE [n] 11.18 -- 


Veroorzaakt een tijdelijke onderbreking 
van het programma. Op initiatief van bij- 
voorbeeld een operateur kan de executie 
van het programma worden hervat. Het 
effect is dan hetzelfde alsof er een 
CONTINUE-statement is uitgevoerd. 
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vorm en toelichting | X3. 9-1978 SF/k 
PRINT f [,iolist] 12.8 SF/1, 
Data Transfer Output Statement. Een e p: 
statement waarmee gegevens al dan niet blz 163 
onder FORMAT-besturing kunnen worden } 
weggeschreven naar een standaard, 
installatie-afhankelijk uitvoerbestand/ 
-apparaat, bijvoorbeeld een regeldrukker. 
nnen 
PROGRAM pgm 14.1 -- 
Kan worden gebruikt om een hoofdpro- 
gramma te benoemen. 
ed ananda eend E ad 
READ (cilist) [iolist] miS -- 
Data Transfer Input Statement. Een 
statement waarmee gegevens al dan niet 
onder FORMAT-besturing kunnen worden 
ingelezen vanaf een specificeerbaar 
invoerbestand/-apparaat. 
ederland 
READ f [,iolist] 12.8 SF/2, 
Data Transfer Input Statement. Een ore Mea; 
statement waarmee gegevens al dan niet TE 169 
onder FORMAT-besturing kunnen worden k 
ingelezen vanaf een standaard, installatie- 
afhankelijk invoerbestand/-apparaat. 
EEEN OEE EDE Te ge A AAE CARA EN 
REAL v [,v] 8.4.1 SF/2, 
Real Type Statement. Kent aan één of m hid, 
meer variabelen, arrays, enz. het data- bl 132 
type REAL toe, Kan tevens worden m: 
gebruikt voor het declareren van array- 
dimensies. 
I TT a A E SCA E ARA A N R S 
RETURN [e] 15.8 SF/7, 

; i i blz.180, 
Mag uitsluitend in een subprogramma , 197 


voorkomen. Heeft terugkeer naar het aan- 
roepende programma of subprogramma 
tot gevolg. M.b.v. e kan een alternatief 
terugkeerpunt worden gekozen. 
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vorm en toelichting X3. 9-1978 SF/k 

REWIND u 12,10.4,8 SF/8, 

REWIND (alist) blz, 247, 

Positioneert een bestand op het begin- ARR 

punt. 

SAVE [a [,a] Pead 8.9 IEA 

Wordt gebruikt in subprogramma's om de 

definitiestatus van variabelen of arrays bij 

terugkeer naar het aanroepende program- 

ma vast te houden. 

STOP [n] 11,12 SF/1, 

Beëindigt de executie van een lopend idni 

(hoofd)programma. Binnen een program- 

ma zijn meerdere STOP-statements 

mogelijk. M.b.v. n (een reeks van maxi- 

maal 5 cijfers) kan men laten zien welke 

STOP-statement werd uitgevoerd. 

SUBROUTINE sub [(d [,d]...])] 15,6 SF/7, 

Definieert het beginpunt, de naam en has 18 

eventuele parameters van een subroutine- 

subprogramma. 

v=e 10.1 SF /2, 
blz. 50, 67 


Arithmetic Assignment Statement, 'v' is 
een variabele of een arrayelement van het 
datatype INTEGER, REAL, DOUBLE 
PRECISION of COMPLEX. 'e' is een 
rekenkundige uitdrukking. De waarde van 
e wordt toegekend aan v, eventueel na 
conversie, 


v=e 10.2 -= 


Logical Assignment Statement. 'v' is een 
variabele of een arrayelement van het 
datatype LOGICAL. 'e' is een logische 
expressie. De waarde van e wordt toege- 
kend aan v. 
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vorm en toelichting X3.9-1978  SF/k 
v=e 10.4 SF/4, 
DIZ 12T, 


Character Assignment Statement. 'v' is 
een variabele of een arrayelement van het 
datatype CHARACTER, of een 
CHARACTER-substring. 'e' is een 
CHARACTER-expressie. De waarde van 
e wordt toegekend aan v, eventueel na 
afkapping of na aanvulling met spaties. 
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WRITE (cilist) [ iolist ] 12.8 _ 


Data Transfer Statement. Een statement 
waarmee gegevens al dan niet onder 
FORMAT-besturing kunnen worden weg- 
geschreven naar een specificeerbaar 
uitvoerbestand/-apparaat. 


APPENDIX 3: VOORNAAMSTE 
VERSCHILLEN FORTRAN 77/FORTRAN 66 


In deze appendix geven we een overzicht van de voornaamste ver- 
schillen tussen FORTRAN 77 (FORTRAN 'nieuwe stijl', volgens 
ANSI-norm X3. 9-1978) en FORTRAN 66 (FORTRAN ‘oude stijl', 
volgens ANSI-norm X3.9-1966). Wat FORTRAN 77 betreft wordt uit- 
gegaan van volledig FORTRAN (Engels: full language). We beperken 
ons hierbij nadrukkelijk tot een overzicht, Voor uitgebreidere infor- 
matie wordt verwezen naar de volgende artikelen: 


- De nieuwe FORTRAN standaard. Drs. C.G.F. Ampt en F. v.d. 
Linden. Informatie, oktober 1977, jaargang 19, nr.10, pp. 561 
t/m 563. 


- Nadere toelichting op de nieuwe FORTRAN standaard. De Neder- 
landse Fortran-commissie, Informatie, juni 1978 en december 
1978, jaargang 20, nr.6, pp. 382 t/m 387 en nr.12, pp. 748 t/m 
153. 


- Fortran 77. Walt Brainerd (Ed.). Communications of the ACM. 
October 1978, Volume 21, number 10, pp. 806 t/m 820. 


1 DATATYPE 


1.1 CHARACTER-datatype. FORTRAN 77 kent het CHARACTER- 
datatype, een nieuw datatype voor tekenreeksen (Engels: 
character strings) van vaste lengte. Met dit datatype kan 
worden gewerkt in de vorm van constanten, variabelen, 
arrays en substrings. Enkele standaardfuncties (Engels: 
intrinsic functions) voor het werken met het CHARACTER- 
type zijn toegevoegd. | 


1.2 Hollerith datatype. Dit datatype, gedefinieerd in FORTRAN 
66, is niet in de nieuwe norm opgenomen. In FORTRAN 77 
wordt hiervoor de CHARACTER-constante (literal, literaal) 
gebruikt. 
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1.3 IMPLICIT-statement. Een nieuwe statement voor het decla- 
reren van het datatype van variabelen, arrays, externe 
functies en statement-functies aan de hand van de beginlet- 
ter van de naam van de desbetreffende grootheid. 


2 REKENKUNDIGE GROOTHEDEN 


2,1 PARAMETER-statement. Een nieuwe statement voor het 
verbinden van een (compile-time) constante aan een symbo- 
lische naam (identificator). 


2.2 Expressies. In een rekenkundige expressie kunnen in 
FORTRAN 77 deelexpressies van verschillend type voorko- 
men, 


3 ARRAYS 


3.1 Indexbereik. Behalve een bovengrens kan in FORTRAN 77 
ook een ondergrens worden gedeclareerd. Bij een array die 
als formele parameter (Engels: dummy argument) wordt 
gedeclareerd mag voor de ‘bovengrens van de laatste dimen- 
sie een asterisk-teken worden gebruikt, om aan te geven dat 
de eigenlijke grootte van de array bepaald moet worden aan 
de hand van de actuele parameters. Arrays kunnen in 
FORTRAN 77 maximaal 7 dimensies hebben. 


3.2 Indexexpressies. Willekeurige INTEGER-expressies kunnen 
in FORTRAN 77 als arrayindex worden gebruikt. 


4 BESTURINGSSTATEMENTS 


4.1 Nieuwe branching statements. In FORTRAN 77 zijn t.b.v. 
het gestructureerd programmeren de volgende statements 
toegevoegd: 


- IF (e) THEN 

- ELSE IF (e) THEN 
_ ELSE 

- END IF 
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4,2 DO-loops. FORTRAN 77 kent de zg. 'zero-trip' DO-loop. 
Vóór de uitvoering van de loop (lus) wordt aan de hand van 
de DO-parameters vastgesteld hoeveel maal de lus uitge- 
voerd moet worden. Hebben die parameters een zodanige 
waarde dat de eindwaarde niet bereikt kan worden, dan wordt 
de lus niet uitgevoerd, In verband hiermee mag de eindpara- 
meter (terminal parameter) bij een positieve stapparameter 
in principe kleiner zijn dan de beginparameter. Negatieve 
stapparameters zijn overigens ook toegestaan. Na afloop 
van een DO-statement blijft de teller zijn waarde behouden. 
Sprongen van buiten naar binnen de 'range' van een DO- 
statement zijn onder alle omstandigheden verboden. Dit 
betekent dat de zg. extended range, zoals in FORTRAN 66 
gedefinieerd, in FORTRAN 77 niet mogelijk is. 


4,3 'Computed GO TO'-statement. Is de waarde van de bestu- 
ringsexpressie groter dan het aantal opgegeven labels, dan 
wordt de uitvoering van het programma voortgezet bij de 
statement volgend op die computed GO TO. Deze situatie 
was in FORTRAN 66 niet gedefinieerd. 


5 IN- EN UITVOER 
FORTRAN 77 kent de volgende aanvullingen t.o.v. FORTRAN 66. 
5.1 List-directed I/O, Een vorm van in- en uitvoer waarbij 
zonder FORMAT-statements kan worden gewerkt. De 
externe representatie wordt bepaald door het desbetreffende 
element van de in- of uitvoerlijst. 


5.2 Een uitvoerlijst (output list) mag constanten en/of expres- 
sies bevatten. 


5.3 In een in- of uitvoerstatement mag een CHARACTER-string 
als FORMAT-specificatie worden gebruikt. 


5.4 Opvang van end-of-file en transmissiefouten is mogelijk 
m.b.v. de END- en ERR-opties. 


5.5 Ten behoeve van het tabuleren is een 'tab' format beschik- 
baar. 


5.5 Direct-access in- en uitvoer is mogelijk. 
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5.6 


5.7 


CHARACTER-arrays kunnen gebruikt worden als zg. internal 
file (een alternatief voor het (vroeger) veel-gebruikte, niet- 
standaard ENCODE/DECODE). 


Aanvullende in- en uitvoerstatements: OPEN, CLOSE, 
INQUIRE. 


6 SUBPROGRAMMA’S EN FUNCTIES 


6.1 


6.2 


6.3 


6.4 


6.5 


ENTRY-statement. Subroutines en functiesubprogramma's 
kunnen in FORTRAN 77 op verschillende plaatsen 'betreden' 
worden m.b.v. ENTRY-statements. 


Alternatieve RETURN. Het RETURN-mechanisme bij sub- 
routines is in FORTRAN 77 zodanig aangepast dat terugkeer 
naar meerdere plaatsen in het aanroepende programma of 
subprogramma mogelijk is. 


SAVE-statement. De waarden van variabelen en/of arrays 
in subprogramma's kunnen in FORTRAN 77 na uitvoering 
van die subprogramma's m.b.v. deze statement worden 
bewaard. 


Generic standaardfuncties. FORTRAN 77 kent zg. generic 
names voor bepaalde standaardfuncties, d.w.z. één naam 
(bijv. SQRT) kan worden gebruikt voor een groep soortge- 
lijke functies (bijv. SQRT, DSQRT, CSQRT). Bij deze 
functies zijn parameters (argumenten) van verschillende 
datatypen toegestaan. 


In verband met het nieuwe datatype CHARACTER is een aan- 
tal nieuwe standaardfuncties opgenomen. 


7 TEKENVERZAMELING 


De tekenverzameling (character set) van FORTRAN 77 is uitge- 
breid met de apostrof en de dubbele punt (colon). Een sorteer- 

volgorde (collating sequence) is voor een deel van de verzame- 

ling gespecificeerd. 


8 COMMENTAAR 


Commentaar kan in FORTRAN 77, behalve door een C, ook door 
een asteriskteken in kolom 1 worden aangegeven. 


INDEX 


aanroep 
van subroutine 181-182 
van functie 185 
adres 
ketenadres 256 
van een byte 13 
afdrukken 
met lijstbestuurde PRINT 35-38 
onder FORMAT-besturing 163-168 
afkapping 52, 68 
afronding 
afrondingsfouten 294 
bij INTEGER-toekenningen 52 
alfanumerieke tekens 12, 23, 118 
zie ook: tekenreeksen 
algoritme 150 
efficiency van 156 
ontwikkeling van 152 
standaard- 159 
ALU 15 
anker (anchor) 256 
argumenten 
zie: parameters 
arithmetic and logic unit (ALU) 15 
arrays 130-144 
arraygrenzen 132, 137, 144 
arrayindex 130, 143 
CHARACTER-arrays 131 
declaratie 131-132, 143, 183 
meerdimensionaal 138, 142, 144 
verband met gegevensstructuur 142 
ASCII 12, 123 
assignment statement 49 
asteriskteken 27, 35 


basic real constant 28 
basisnotatie 28 
bedrijfssysteem 38 
beginparameter DO-lus 74 
benadering 
van krommen (curve-fitting) 287, 
297 
beslissingen 3 
beslissingsfunctie bij CVE 15 


bestand 213, 224, 246 
beschrijven van 247, 251 
lezen van 248, 251 
onderhoud 251 
sequentieel 246, 250 

besturing, programma- 
zie: programma 

besturingsstructuur 
van programma 73-74, 88 

besturingsvariabele DO-lus 101 

bin 220, 225 

binair 
binaire boomstructuur 267, 275 
binair zoeken 216 
cijfer 11 

bit 10, 23 

bitreeks 
interpretatie van 11 
organisatie van 13 

bladknooppunt 269 

bloeck/blok IF-statement 88 

boomstructuur 255, 267 

branch 73 

byte 13, 23 


CALL-statement 181 
carriage control character 20 
centrale machine 17, 24 
centrale verwerkingseenheid (CVE) 
(central processing unit, CPU) 
15, 24 
character set 27 
CHARACTER- 
string constante 31 
type-statement 119 
CHARACTER-variabelen 119, 125 
afkapping 121, 126 
declaratie 119 
padding 119 
toekenning 121 
code 12, 23 
collating sequence 
(sorteervolgorde) 123 
commentaar 69, 230, 238 
vorm van de commentaarregel 56 
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COMMON 14, 193, 198 
compatibility 4, 5 
compiler 2, 4 
condities 3, 77 
in IF...THEN...ELSE 112 


samengestelde condities bij lussen 


1190; 113 

constanten 28 
continuatieteken 40, 57 
continuatieveld 40 
CONTINUE-statement 74, 76, 81 
control flow 73 
control variabele 101 
conversie 

bij in- en uitvoer 14 


tussen REAL en INTEGER 55, 68 
tussen verschillende datatypen 14 


correctheidsbewijzen 8, 9 
GPD. 19 

curve-fitting 287 

CVE 15 


dataset 246, 250 
datatype 12, 15, 23, 67 
debugging 108, 232, 235, 239 
decimaalteken 28 
declaratie 
het begrip declareren 47, 67 
variabele arraydeclaratie 183 
deelexpressies 33 
destructive read-in 23, 24 
directe toegankelijkheid 
(direct access) 22, 24 
DO-lus/-statement 
zie: lussen 
DO-parameters 76 
DOUBLE PRECISION 30 


EBCDIC 12, 123 
echoprint/-check 62 
end-of-file 66 

marker 83, 248 
ENDFILE-statement 248, 251 
END-statement 38, 43 

ontbreken van 65 
ENTRY-kaart 39, 54 

ontbreken van 65 
exception reporting 210 
executable statement 48, 92 
executieproces 

nasporen van (tracing) 51 

van een programma 2 
exponentnotatie 29 
expressies 32-35. 42 

deelexpressies 33 


in PRINT-statement 37 
logische expressies 77-79 
extern geheugen 21, 24 


FCFS 265 
field descriptors 
zie: veldbeschrijvers 
FIFO 265 
file 
zie: bestand 
flag 157 
flowchart 102 
format 
zie: opmaak 
FORMAT-besturing 
(format control) 163 
format code 
zie: opmaakcode 
format-free I/O 163 
fouten 
afrondings- 294-295, 296 
automatisch corrigeren van 236 
benaderings- 291, 296 
gegenereerde fout 294 
in programma-ontwerp 235 
numerieke fout 281 
semantische 63-64 
syntaktische 63 
voortschrijdende 291, 296 
foutmeldingen 237 
functie 
empirische 289 
standaard- (built-in, intrinsic) 
33, 184, 185, 281 
functie subprogramma 184 
aanroep van 185, 189 
algemene vorm 185, 196 
zie ook: subprogramma 


Gauss-eliminatie 292 
gegevens- 
representatie 10 
structuur 255 
geheugen 1 
extern 21, 24 
geheugenapparatuur 20 
geheugenfunctie CVE 15 
intern 21, 24 
onderscheid intern/extern 17 
toegangstijd 21 
toegangsvormen 22, 24 
geketende lijsten 255-263 
getalrepresentatie 12, 23 
GO-TO-statement 82, 102, 114 
grafieken 


afdrukken met regeldrukker 282-287 


halveringszoekproces/-methode 216- 
220, 267 
hash-code 220, 225 


identificatieveld, 40 
identificatoren 
definitie van 27 
keuze en gebruik 56, 230, 231, 238 
vorm 46, 67 
IF...GO TO- statement 80 
IF... THEN... ELSE - statement 88, 95 
index 
bij arrays 130-132, 143-144 
bij DO-statement 76 
in- en uitvoerapparatuur 17, 24 
initialisatie 65, 84 
initial parameter 
(DO-statement) 74 
inlezen met opmaakbesturing 
(format control) 
CHARACTER-arrays 171 
getallen 169 
tekst 170 
instructierepertoire/-set 2 
INTEGER 
afronding bij INTEGER-toekenningen 
52 


constanten 28, 41 
uitvoer van INTEGER-waarden bij 
lijstbestuurde PRINT 36 
uitvoer van INTEGER-waarden met 
opmaakbesturing 168 
integreren 292-293, 298 
intern geheugen 21, 24 
intrinsic function 
zie: standaardfunctie 
invoer van gegevens 7, 15, 53-54, 
169-171 


invoer- 
bestand 53 
gegevens 68 
lijst 54 


I/O-apparatuur 17 


ketenadres 256 
kettingformulier 20 
key 213 

keyword 27 
knooppunt (node) 269 


label 
labelveld 75 
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LIFO 264 
lijstbesturing 
lijstbestuurde PRINT/opmaak 35-38 
lijstbestuurde in- en uitvoer 163 
lijsten 
geketende lijsten 255, 274 
stapels (stacks) 263, 275 
uitvoerlijst 35 
wachtrijen/-lijsten 265, 275 
lineaire vergelijkingen 291, 297 
list-direeted I/O 
zie: lijstbesturing 
literaal 31, 41, 119, 125 
uitvoer van literalen bij lijstbe- 
stuurde PRINT 37 
lus (loop) 73, 93 
beginpunt 100 
besturingsoverdracht 100 
eindpunt 101 
kern 74 
nesten 105, 114 
oneindige lussen 87 
status DO-teller na beëindiging lus 
81 
teller-bestuurde DO-lus 
voortijdige beëindiging 101 
voorwaardelijke lus 80-87, 93 
werkgebied (range) 76 


machinetaal 2 

machtsverheffen 33 

mantisse 29 

modulair programmeren 150, 195, 
202, 230 

modules (programma-) 150, 178, 202 
communicatie tussen 204 


nauwkeurigheid 280-281 
nesten 

van lussen 105, 114 

van subprogramma's 190-191 
non-destructive read-out 23-24 
non-executable statement 48 
normeren 29 
nulreeks 

(null string) 119, 125 
numerieke 

methoden 291 

programmapakketten 294 


opdrachtveld 40 
operating system 38 
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operatoren 

logische 77, 94 

rekenkundige 32 

relationele 77-78, 94 
opmaak 

van uitvoer bij lijstbestuurde 

PRINT 36-38 

opmaakcode 165 

A-code 167, 170-171, 173 

E-code 166, 173 

F-code 165, 173 

I- code 168, 173 

X-code 170, 173 
opmaakvrije in- en uitvoer 163 
overflow 31 


padding 119, 126 
paragrafering van programmatekst 
92, 95 
parameters 
actuele 181, 198 
beginparameter DO-lus 
(initial parameter) 74 
eindparameter DO-lus 
(terminal parameter) 74 
formele 
(dummy argument) 181, 198 
invoer- (bij subroutine) 178 
stapparameter DO-lus 
(incrementation parameter) 77 
uitvoer- (bij subroutine) 178 
periferie 17, 24 
polynoomvergelijkingen 289-291, 297 
ponsconventies 39 
pop 264 
positioneren 
van uitvoer 170, 173 
PRINT-statement 35, 42 
prioriteitsregels 33 
programma 
-besturing 73 
bron- 2 
computer- 1, 8 
-correctheid 7-9, 229, 238 
debugging 108, 232, 235, 239 
doel- (target-, object-) 2 
-executie 2, 8 
-lus 
zie: lus 
-onderhoud 210 
-specificaties 227, 238 
testen van 232, 239 
programmeer- 
gewoonten 228, 238 
stijl 230, 238 


eng 
ogere orde 4 
specificaties 4 


programmeren 1, 8 


defensief 228 


gestructureerd 3, 8 


pseudotaal 153, 160 


push 264 


queue 265-267 


rapportering volgens uitzonderings- 


beginsel 210 
READ-statement 


bij bestand op achtergrondgeheugen 


248 


lijstbestuurde READ 53-56, 68 


REAL 


constanten 28, 41 


uitvoer van REAL-waarden bij 
lijstbestuurde PRINT 36 


record 213, 224, 250 


-array 243 


-profiel 248, 250 
-veld 213, 224, 242 
recursiviteit 192, 272-274 


reference 
zie: aanroep 
regeldrukker 20 


rekenfunctie CVE 15 


repetitiefactor 171 
RETURN-statement 
REWIND-statement 
rules of precedence 


197 
247, 250 
33 


schakel (geketende lijst) 256 
scientific notation 29 
semantische fout 63-64; 70 


sentinel 83 


sequentiële toegankelijkheid 22, 24 


SF/k 5,9 

significante cijfers 
verlies van 295 

sleutel 213, 224 


sleutelwoord 27, 69 


sluit- 


280 


regel 83, 94, 248 


record 248 


sorteervolgorde 123 


sorteren 


bubble sort 221, 
door samenvoeging (merging) 


221, 225 


225 


van tekenreeksen 123 


source deck 39 


standaardfunctie 53, 184-185, 281 
stapel 263-265 
stapgewijze verfijning 
(stepwise refinement) 149, 230 
statement 26 
declaratie-/specificatie- 47 
toekennings- 49 
uitvoerbaar/niet-uitvoerbaar 
(executable/non-executable) 48 
STOP-statement 38, 43 
string 25, 31 
stroomschema's 102, 113 
basisschema's 104 
stuurinformatie 25, 39, 42 
subprogramma 178 
-aanroep 197 
definitie 196 
functie- 184 
naam 197 
nesten van 190, 191 
subroutine- 178 
terug van 197 
volgorde van declaraties in 193 
subroutine 
aanroepen van 180-181, 189 
algemene vorm 196 
SUBROUTINE-statement 178 
subset 5, 6 
subscripted variable 130 
subscript expression 130 
symbolic name 27 
syntaktische fout 63, 69 


taalspecificaties 4 
tekenreeksen 25, 31, 118 
afkappen van 121, 126 
inlezen en afdrukken van 120 
lege tekenreeks 119 
padding van 119, 126 
toekenning aan CHARACTER- 
variabelen 121 
vergelijken/herkennen van 121, 
124, 126 
tekenverzameling 27, 41 
teller (index, bij DO-lus) 76 
status na beëindiging lus 81 
template 248 
terminal statement (DO-1us) 76 
testen 62, 232, 239 
bottom-up 234 
toegankelijkheid (van geheugen) 22 
toekenning 49-51, 68 
top-down ‘ie schonen. 149 
tracing 51 
transactie 249 
-records 202 
trapezium-methode 292 
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truncation 52 
tussenuitvoer 64 
type-statement 132 


uitvoer 

-functie bij CVE 15 

-lijst 35 

-opdracht 20 

t.g.v. lijstbestuurde PRINT 35-38 

tussenuitvoer 64 

verklarende tekst bij uitvoer 60 
underflow 31 


variabele 

geïndiceerd 130 

het begrip variabele 46-47, 67 
veldbeschrijvers 164, 172 

Aw 167, 173 


Iw 168, 173 
nAw ik, 173 
nX 170, 173 


veldinrichting bij lijstbestuurde 


PRINT 36-38, 42 

vertakking (branch) 73 
meervoudige vertakking 89-92 
tweewegvertakking 

vlag, programma- 157 

voorwaardelijke lussen 80-87 


wachtrij/-lijst 265-267 
wagenbesturing 20, 164, 168, 172 
wetenschappelijke notatie (REAL) 29 
wijzer (pointer) 

bij parametermechanisme van 

subprogramma's 181 

bij stapels 264 
woord (geheugen-) 14, 23 
wortelknooppunt 269 
WRITE-statement 247 


zoeken 
lineair/sequentieel 213-214, 224 
m.b.v. adresberekening 220 
volgens halveringsmethode 
(binair) 216-220, 224 
zoektijd 216 
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Over het boek 


Cursus FORTRAN 77 is een inleiding tot het programmeren 
in FORTRAN op basis van het ANSI X3.9-1978 rapport — 

de meest recente norm voor deze wijdverbreide programmeer- 
taal. 


Het boek voert echter niet de pretentie FORTRAN 77 (zoals 
deze norm in de wandeling wordt genoemd) in alle volledig- 
heid te behandelen. De nadruk valt op het gestructureerd 
programmeren met behulp van de belangrijkste taalelemen- 
ten, waaronder de pas ingevoerde CHARACTER-grootheden 
en de IF... THEN...ELSE constructie. De behandelde taal- 
elementen vormen een zogenaamde subset, SF/k genoemd, 
die op zijn beurt uit acht kleinere subsets (SF/1 t/m SF/8) 
is opgebouwd. 


Aan elke subset wordt een afzonderlijk hoofdstuk gewijd. 
In de overige (negen) hoofdstukken wordt veel aandacht 
besteed aan programmeertechniek. Daarbij komen met name 
technieken en methodieken zoals gestructureerd program- 
meren, modulair programmeren, top-down programming en 
stepwise refinement uitgebreid aan de orde. Ook het simu- 
leren van gegevensstructuren zoals geketende lijsten, 
wachtrijen en boomstructuren wordt behandeld. 


Van de lezer wordt geen bijzondere wis- of computerkundige 
voorkennis gevraagd. Voor gebruikers van PRIME- 
computers zoals geïnstalleerd op verschillende HBO- 
instellingen in Nederland is een speciale aanvulling op dit 
boek verschenen. 


